Hallo,
eventuell hilft dieser VBA-Code weiter:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim changeRange As Range
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)
With Target.Worksheet.Cells(2, 7) ' Zelle G2
If IsNumeric(.Value) Then
.Value = .Value + 1
Else
.Value = 1
End If
End With
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
LG, BigBen
|