Hallo und einen schönen Tag an da Forum - Team
wer kann mir sagen was an dieser Formel falsch ist?
in allen Zellen wird der Befehl ausgeführt nur in Zelle BN 7 nicht.
Das ist die Eingabe:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Bereiche, in dem die 1 eingefügt werden solle
If Not Intersect(Target, Range("C7:I18,L7:R18,U7:AA18,AD7:AJ18,AM7:AS18,AV7:BB18,Be7:Bk18,Bn7:bt18")) Is Nothing Then
Target.Value = 1
Cancel = True 'Menü nach drücken rechte Maustaste nicht anzeigen
End If
End Sub
Gruß Adde