Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abhacken mit Rechtsklick

Abhacken mit Rechtsklick
17.01.2006 10:03:58
köbi
Hallo Insider
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abhacken mit Rechtsklick
17.01.2006 10:10:47
ANdreas
Hallo köbi,
hier mein Vorschlag:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 1 Then
Cancel = True
If .Value = "ü" Then
.Value = ""
.Font.Name = "Arial"
Else
.Font.Name = "Wingdings"
.Value = "ü"
End If
End If
End With
End Sub

Ich hab auch noch ein paar Kleinigkeiten verändert. Wenn man nicht in der ersten Spalte rechtsklickt, wird normal das Kontextmenü angezeigt. Beim Setzen des Hakens wird zuerst die Schriftart gesetzt (sonst hat man evtl. ganz kurz das "ü" gesehen).
Hoffe das hilft weiter,
Andreas
Anzeige
AW: Abhacken mit Rechtsklick
17.01.2006 10:11:48
yogi
Salü Köbi

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
If Target.Value = "ü" Then
Target.Value = ""
Target.Font.Name = "Arial"
Else
Target.Value = "ü"
Target.Font.Name = "Wingdings"
End If
End If
Cancel = True
End Sub

Grussyogi
AW: Abhacken mit Rechtsklick
17.01.2006 10:14:09
Beni
Hallo Köbi,
Gruss Beni

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
If Target.Value = "ü" Then
Target.Value = ""
Target.Font.Name = "Arial"
Else
Target.Value = "ü"
Target.Font.Name = "Wingdings"
End If
Cancel = True
End If
End Sub

Anzeige
Super many thanks to ANdreas,yogi,Beni
17.01.2006 10:20:48
köbi
Wow, da wird dir geholfen
Vielen Dank an ANdreas, yogi und Beni
gruss
köbi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige