x in Zelle wenn Makro beendet

[kingkong]

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

[ralf_b]

Code:

if  ..........

ElseIf UCase(target) = "Y" Then
            target = "X"
            target.Font.Color = vbRed
else
      .............

[kingkong]

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

[Klaus-Dieter]

Hallo,

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.

[kingkong]

Ja aber bei erneuten Klick bleibt dann das x und ändert sich nicht mehr in ein v.

[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