Worksheet_BeforeRightClick then...
31.03.2016 15:21:12
baschti007
Ich würde gerne mit diesem Code einen Bereich makieren und dann mit der Rechtenmaustaste diesen mit einem x versehen oder das x wieder entfernen .Mit dem entfernen das klappt aber nicht makieren mit dem x nur wenn ich jede Zelle einzelnd auswähle und dabei die STRG taste halte.
Geht das auch anders ?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then Target = "x" Else Target = ""
End If
End Sub
Gruß Basti