Hallo
Ich möchte in andern Spalten noch eine andere Farbe haben.
Wie kann ich den Code ergänzen das ich in andern Spalten eine andere Farbe auswählen und eintragen kann.
Mfg Peter
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([B3:B33,G3:G31,L3:L33,Q3:Q32,V3:V33,AA3:AA32,AF3:AF33,AK3:AK33,AP3:AP32,AU3:AU33,AZ3:AZ32,BE3:BE33], Target) Is Nothing Then
If Target.Interior.ColorIndex = 47 Then
Target.Interior.ColorIndex = x1None
Else
Target.Interior.ColorIndex = 47
End If
Cancel = True
End If
End Sub