Bei Aktivierung der CheckBox soll ein Häkchen in Zelle A1 eingetragen werden.
Prozedur: chbhaekchen_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Bei Aktivierung Häkchen in Zelle
Ablaufbeschreibung:
Variablendeklaration
Rahmen um das Bereichs-Objekt Zelle A1 bilden
Fehlerroutine für den Fall, dass die Schriftart nicht gefunden wird
Schriftart der Zelle auf Windings festlegen
Wenn die CheckBox den Wert TRUE hat...
Ein ü in die Zelle eintragen
Sonst...
Die Zelle zurücksetzen
Code:
Private Sub chbhaekchen_Click()
With Range("A1")
On Error Resume Next
.Font.Name = "Wingdings"
If chbHaekchen.Value = True Then
.Value = "ü"
Else
.Value = ""
End If
End With
End Sub