|
"Application.CommandBars("cell").Enabled = False"
Dies ist in meinem VBA Code enthalten wie kann ich den Zellenbereich auf C2:E200 einschränken
Hier mein kompletter Code ich bin noch ein Anfänger.
Den Code habe ich selbst gestaltet ich brauche jedoch keine Besserungsvorschläge, einfach nur wie ich mein Problem lösen kann.
Danke schon im Vorraus.
"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
Call Makro2
End Sub"
|