nachfolgendes Makro läuft nur, wenn kein Blattschutz vorhanden:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
Cancel = True
If Target = "" Then
Select Case Target.Column
Case 3
Target = "Urlaub"
Target.Font.Color = -16776961
' Target.Offset(0, 6) = CDate("1:58")
End Select
Else
Target = ""
' Target.Offset(0, 6).ClearContents
Target.Font.ColorIndex = xlAutomatic
End If
End If
End Sub
Mit Blattschutz kommt "Laufzeitfehler 1004" und bleibt an der Stelle: "Target.Font.Color = -16776961" stehen (gelb unterlegt).
Kann man das korrigieren?
Gruß
mike49