25.05.2022, 10:52 (Dieser Beitrag wurde zuletzt bearbeitet: 25.05.2022, 10:54 von Klaus-Dieter.)
Hallo,
dann versuche es einmal so:
Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
If Not Intersect(target, Range("E2:E100")) Is Nothing Then
target.HorizontalAlignment = xlCenter
target.VerticalAlignment = xlCenter
target.Font.Name = "MV Boli"
Select Case target
Case Is = ""
target = "V"
target.Font.Color = vbGreen
Case Is = "V"
target = "X"
target.Font.Color = vbRed
Case Is = "X"
target = "V"
target.Font.Color = vbGreen
End Select
End If
End Sub
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
Folgende(r) 1 Nutzer sagt Danke an Klaus-Dieter für diesen Beitrag:1 Nutzer sagt Danke an Klaus-Dieter für diesen Beitrag 28 • kingkong