Bei Klick auf Zelle grünen Haken

[Beltason]

Hallo Leute, einen frohen 1. Advend nachträglich erstmal :)

Nun zu meinem Problem..

Ich muss in einer großen Tabelle zahlreiche Zellen als erledigt oder nicht erledigt darstellen. Daher suche nach einer einfachen Möglichkeit, eine Zelle mit nur einem Klick als erledigt zu markieren. Am besten mit dem "erledigt Haken"  [
Bild bitte so als Datei hochladen: Klick mich!
]
Also z.B. Klick auf E2: E2 wird grüner Haken, nächster Klick auf E3: E3 wird grüner Haken usw

Die klickbaren Zellen sollten von E2 bis E100 sein, vornehmlich nur dort. Perfekt wäre noch das beim zweiten Klick auf besagte Zelle der Haken wieder verschwindet.

Lieben Gruß an die Profis...

[Egon12]

ins Modul der Tabelle:

Code:

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 = "ü"
            target.Font.Color = RGB(0, 176, 80)
            target.Font.Name = "Wingdings"
            target.Font.Bold = True
            target.HorizontalAlignment = xlCenter
            target.VerticalAlignment = xlCenter
        Else
            target = ""

        End If

        Cancel = True

    End If

End Sub

Der Haken wird mit Doppelklick gesetzt und mit Doppelklick wieder entfernt.

[Beltason]

Wow genauso hatte ich es mir gewünscht, vielen Dank :18: :18: :100: :18: