Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set changeRange = Range("C2:C200")
Call makro
If Not Application.Intersect(changeRange, Target) Is Nothing Then
If Target.Interior.Color = RGB(0, 165, 0) Then
Target.Interior.Color = RGB(220, 0, 0)
Application.CommandBars("cell").Enabled = False
Else
Target.Interior.Color = RGB(0, 165, 0)
End If
End If
Set changeRange = Range("E2:E200")
If Not Application.Intersect(changeRange, Target) Is Nothing Then
If Target.Interior.Color = RGB(0, 165, 0) Then
Target.Interior.Color = RGB(220, 0, 0)
Else
Target.Interior.Color = RGB(0, 165, 0)
End If
End If
If Target.Column = 4 Then
Target = Date
End If
End Sub
Das ist mein Code ich möchte gern das, Wenn die Zelle grün ist dann soll in G2 eine 1 eingetragen werden.
Wenn ein zweites Feld grün wird dann soll G2 + 1 gerechnet werden.
Wenn das Feld Rot ist Soll nix passieren.
Bitte um Hilfe Danke im voraus
|