Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

CheckBox
#1
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
Antworten Top
#2
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
[-] Folgende(r) 1 Nutzer sagt Danke an Niko für diesen Beitrag:
  • ultrabest
Antworten Top
#3
Hallo,

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

Gruß, Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • ultrabest
Antworten Top
#4
(11.07.2024, 18:49)Niko schrieb: 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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste