habe bei euch auf der seite was richtig schönes gefunden wo ich gerade am rumprobieren bin über die bedingte Formatierung.
Jetzt die Frage
Besteht die Möglichkeit bei Doppelklick auf die Zelle mit einem V in ein X (am besten noch in einem Rot ) zu verwandeln ???
Danke Euch
irgendwie krieg ichs nicht auf die Reihe.
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
If Not Intersect(target, Range("E2:E100")) Is Nothing Then
If target = "" Then
target = "V"
target.Font.Color = RGB(0, 176, 80)
target.Font.Name = "MV Boli"
target.Font.Bold = True
target.HorizontalAlignment = xlCenter
target.VerticalAlignment = xlCenter
ElseIf UCase(target) = "V" Then
target = "X"
target.Font.Color = vbRed
target.Font.Name = "MV Boli"
Else
End If
Cancel = True
End If
End Sub
Hallo,
Zitat:Besteht die Möglichkeit bei Doppelklick auf die Zelle mit einem V in ein X (am besten noch in einem Rot ) zu verwandeln ???
diese Anforderung wird erfüllt.
Ja aber bei erneuten Klick bleibt dann das x und ändert sich nicht mehr in ein v.
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