Office: (Office 2016) Grüner Haken bei Doppelklick

Hallo Forum,

Ich möchte in Zellen der Spalte H, ab der zweiten Zeile, per Doppelklick einen grünen Haken einfügen . Anbei mein Code. Was ist falsch. Kann mir jemand einen Tipp geben?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 8 Then
EinfuegenHaekchen
End If
End Sub

Sub EinfuegenHaekchen()

Dim wb As Workbook
Set wb = ThisWorkbook
Dim ws As Worksheet
Set ws = Worksheets("Rechnungsdaten")
Dim Zelle As Range
Set Zelle = ActiveCell

With Zelle
If Zelle = "" Then
.Value = Chr(252)
.Font.Name = "Wingdings"
.Font.Color = vbGreen
.Font.Bold = True
.HorizontalAlignment = xlCenter
Else
Zelle = ""
End If
Zelle.Offset(0, 1).Select
End With
End Sub

Vielen Dank schon mal

Der hilflose Mampfred

 

warum das Set?
Ich habe es auskommentiert und der Code macht das was er soll.

 

Hi,

willst du das Makro "EinfuegenHaekchen" nur aus dem Doppelklick-Ereignis heraus ausführen? Dann musst du kein extra Makro verwenden und benötigst keine zusätzlichen Variablen, da du mit Target im aktiven Tabellenblatt arbeiten kannst:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 8 Then
        With Target
            If .Value = "" Then
                .Value = Chr(252)
                .Font.Name = "Wingdings"
                .Font.Color = vbGreen
                .Font.Bold = True
                .HorizontalAlignment = xlCenter
            Else
                .Value = ""
            End If
        End With
        Target.Offset(0, 1).Select
    End If
End Sub

---

 

Hallo Hajo_Zi,
Hallo Beverly,

ich bin Anfänger, was das programmieren in VBA betrifft, deshalb sicherlich das eine oder andere "Merkwürdige" in meinem Code.
Ich habe den reduzierten Code von Beverly übernommen.
Bei mir tut sich leider trotzdem nichts. ????????

der immer noch hilflose Mampfred

 

Hi,

der Code gehört ins Codemodul des Tabellenblattes (und nicht in ein allgemeines Modul), denn dort führst du den Doppelklick aus.

---

 

Hi Beverly,

vielen Dank für die "Klatsche".
Da kommt der Anfänger raus. Wieder was gelernt.

Besten Dank

der Mampfred