Thema: Bei Aktivierung Häkchen in Zelle

Home

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