Abhacken mit Rechtsklick
17.01.2006 10:03:58
köbi
habe fogenden Code gefunden:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "ü" Then
Target.Value = ""
Target.Font.Name = "Arial"
Else
Target.Value = "ü"
Target.Font.Name = "Wingdings"
End If
Cancel = True
End Sub
Der bewirkt das mit dem Rechtsklick ein Häckchen gesetzt wird - so weit so gut. Jetzt meine Frage: Was muss ich umschreiben, damit das Makro nur auf Zellen der Spalte A zugreift und nicht bei Zellen in anderen Spalten?
https://www.herber.de/bbs/user/30117.xls
Vielen Dank für eure Hilfe
Gruss
köbi