das nachfolgende Makro funktioniert, allerdings nur für die aktive Zelle. Läßt sich das Makro umschreiben, so dass die Farbänderungen für alle markierten Zellen gelten?
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As _
Boolean)
Application.ScreenUpdating = False
On Error Resume Next
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Interior.ColorIndex = 35
ElseIf ActiveCell.Interior.ColorIndex = 35 Then
ActiveCell.Interior.ColorIndex = 34
ElseIf ActiveCell.Interior.ColorIndex = 34 Then
ActiveCell.Interior.ColorIndex = 36
ElseIf ActiveCell.Interior.ColorIndex = 36 Then
ActiveCell.Interior.ColorIndex = 40
ElseIf ActiveCell.Interior.ColorIndex = 40 Then
ActiveCell.Interior.ColorIndex = xlNone
End If
Application.ScreenUpdating = True
End Sub
GrüßeBurghard