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 Hansueli