Checkbox. Falls markiert als x in Zelle übernehmen
08.03.2004 15:14:30
Mathias
Wenn ein Button betätigt wird soll in einer Zelle ein x erscheinen bei markierter Checkbox. Wenn sie nicht markiert ist soll die Zelle leer bleiben.
Bei der nächsten Eingabe soll die Zelle jedoch nicht überschrieben werden sondern die nächste Zeile verwendet werden.
Meine bisherige Lösung allerdings ohne checkbox:
Private Sub Ok_CommandButton_Click()
Dim Z As Long
Z = IIf(IsEmpty([a65536]), [a65536].End(xlUp).Row, 65536) + 1
With Tabelle1
.Cells(Z, 1) = Ia_TextBox.Text
.Cells(Z, 2) = Ak_TextBox.Text
.Cells(Z, 3) = Ma_TextBox.Text
.Cells(Z, 4) = Beschreibung_TextBox.Text
.Cells(Z, 5) = Beginn_TextBox.Text
.Cells(Z, 6) = Ende_TextBox.Text
End With
End Sub
Wer kann mir weiterhelfen?
Gruss Mathias
Anzeige