CheckBox

[ultrabest]

Hallo zusammen,

Die CheckBox ist in einer Userform.

Wenn CheckBox mit Haken gesetzt ist wird ein "X" übertragen

mit der Formel 

IF Check1.Value = True Then Cells(last, 2).Value="X".

Klappt wunderbar.


Ich hätte gerne Windings "L" (Kreis). Ist wirkungsvoller.

IF Check1.Value = True Then Cells(last, 2).Value (Schriftart ist Windings) = "L"

Wie ist das umzusetzen?

Viele Grüße 

ultrabest

[Niko]

Vielleicht hilft dieser Code ihnen weiter. 
Bitte zu beachten das der Code ungetestet ist und sicherheitshalber ihre Datei vorab sichern.

Code:

Private Sub CheckBox1_Click()
    Dim lastRow As Long
    ' Ermitteln Sie die letzte Zeile in Spalte 1
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   
    If CheckBox1.Value = True Then
        ' Setzen Sie den Wert "L" in die Zelle und ändern Sie die Schriftart auf Wingdings
        With Cells(lastRow, 2)
            .Value = "L"
            .Font.Name = "Wingdings"
        End With
    Else
        ' Wenn die CheckBox deaktiviert wird, können Sie die Zelle leeren oder einen anderen Wert setzen
        Cells(lastRow, 2).Value = ""
    End If
End Sub

[Kuwer]

Hallo,

setze die Schriftart der Zelle(n) manuell auf Wingdings.

Gruß, Uwe

[ultrabest]

Vielleicht hilft dieser Code ihnen weiter. 
Bitte zu beachten das der Code ungetestet ist und sicherheitshalber ihre Datei vorab sichern.

Code:

Private Sub CheckBox1_Click()
    Dim lastRow As Long
    ' Ermitteln Sie die letzte Zeile in Spalte 1
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   
    If CheckBox1.Value = True Then
        ' Setzen Sie den Wert "L" in die Zelle und ändern Sie die Schriftart auf Wingdings
        With Cells(lastRow, 2)
            .Value = "L"
            .Font.Name = "Wingdings"
        End With
    Else
        ' Wenn die CheckBox deaktiviert wird, können Sie die Zelle leeren oder einen anderen Wert setzen
        Cells(lastRow, 2).Value = ""
    End If
End Sub

Diesen Code habe ich gebraucht. Habe ihn geändert zu und in die Userform eingefügt:

Code:

........

If CheckBox1.Value = True Then
        ' Setzen Sie den Wert "l"(kleines L) in die Zelle und ändern Sie die Schriftart auf Wingdings
        '// In Form einer Ampel
       
With Cells(lastRow, 2)
            .Value = "l"
            .Font.Name = "Wingdings"
            .Font.Size = 12
            .Font.Color = vbred
            .HorizontalAligment = xlCenter
        End With
    Else
        ' Wenn die CheckBox deaktiviert wird, können Sie die Zelle leeren oder einen anderen Wert setzen
        Cells(lastRow, 2).Value = ""
    End If

........

Herzlichen Dank und schönes Wochenende.
Gruß  Ultrabest