CheckBox
19.05.2005 21:05:46
Werner
mit dem unten stehenden Code kann ich bei Klick einen Haken in die Zelle A1 schreiben lassen.
Die CheckBox habe ich auf einer UserForm, wo ich auch noch andere Daten eintrage und diese dann durch Klick auf einem CommandButton in das Tabellenblatt schreibe. Wie mus der Code geändert werden, dass der Haken erst wenn die CheckBox ausgewählt wurde, durch Klick auf den Button mit in die Tabelle geschrieben wird.
Sub CheckBox1_Click()
With Range("A1")
.Font.Name = "Wingdings"
If CheckBox1.Value = True Then
.Value = "ü"
Else
.Value = ""
End If
End With
On Error GoTo 0
End Sub
Werner
Anzeige