Gruppe
Dialog
Problem
Wie kann ich bei Aktivierung einer UserForm-CheckBox ein Häkchen in eine bestimmte Zelle eintragen lassen?
ClassModule: frmHaekchen
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
Private Sub cmdWeiter_Click()
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmHaekchen.Show
End Sub