Edit Modus
serge
mit folgendem, hacken ich die Zelle ab oder aus:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.FormulaR1C1 = "ü" Then
ActiveCell.FormulaR1C1 = ""
Else
ActiveCell.FormulaR1C1 = "ü"
With Selection.Font
.Name = "Wingdings"
End With
Selection.Font.Bold = True
End If
End Sub
Am Schluss bleibt die Zelle im Editmodus!
Wie komme ich da raus?
Danke Serge
Anzeige