Schriftfarbe mehrfach wechseln
13.07.2017 20:58:28
Burghard
ich habe hier ein Makro, was ordnungsgemäß funktioniert. Bei Doppelclick wird der Text durchgestrichen und die Schriftfarbe auf 33 gesetzt. Soweit, so gut. Ich würde allerdings gerne, dass bei erneutem Doppelclick der Strich wieder entfernt und die Schrift auf Schwarz gesetzt wird (Ausgangssituation). Hier das Makro:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A:D")) Is Nothing Then
With Target.Font
.Strikethrough = Not .Strikethrough
.ColorIndex = 33
End With
Cancel = True
End If
Application.ScreenUpdating = True
End Sub
Grüße
Burghard