in einem Arbeitsblatt sind die Spalten B und D in der Schriftart Wingdings formatiert.
Jetzt möchte ich in Zellen durch einfachen Klick das Sonderzeichen q einfügen bzw. durch Doppelklick das Sonderzeichen einfügen.
Dafür suche in einen Code.
Option Explicit
Const effectedRange As String = "B3:B100,D3:D100"
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range(effectedRange)) Is Nothing Then
Application.EnableEvents = False
Select Case Target
Case ""
Target = "q"
Case "q"
Target = "n"
Case "n"
Target = ""
End Select
Cancel = True
Application.EnableEvents = True
End If
End Sub
Gruess HansueliDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen