Spaltenköpfe ausschließen
25.11.2019 15:26:27
Lorenz
Mit untenstehendem Code funktionierts, aber sobald in Spaltenköpfen rechtsgeklickt wird, ist Laufzeitfehler 13 (Typen unverträglich) ausgelost.
Kann es sein daß der Vorgang nur im Doppelklick-Ereignis funktioniert?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C2:C20")) Is Nothing Then
If Target.Value = "" Then Target.Value = "x" Else Target.Value = ""
End If
End Sub
Gruß
Lorenz