vba
29.11.2017 10:18:54
Simone
kann man diesen Code anpassen, damit es auch in Spalte J und und Spalte L funktioniert?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("H2:H20000"), Target) Is Nothing And _
Not Target.Cells.Count > 1 Then
If Target.Value = "ü" Then
Target.Value = ""
Else: Target.Value = "ü"
End If
End If
End Sub
Danke