Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZEingabe As Range 'Deklaration einer Variablen
Set ZEingabe = Sheets("Eingaben").[A5]
While ZEingabe "" 'Prüft ob Zelle leer
Set ZEingabe = ZEingabe.Offset(1, 0)
Wend
'wert aus txtDatum in erste leere Zelle der Spalte A schreiben Datum
ZEingabe = CDate(Me.txtDatum) '.Value = Format("dd.mm.yyyy")
'wert 1 Zelle nach rechts aus cboRechner schreiben Rechner
ZEingabe.Offset(0, 1) = Me.cboRechner
''''wert 2 Zellen nach rechts aus cboUser schreiben User
ZEingabe.Offset(0, 2) = Me.cboUser
'wert 3 Zellen nach rechts aus CheckBox1 schreiben Name
ZEingabe.Offset(0, 3) = Me.CheckBox1
With Range("D5") 'inhalt der CheckBox1 in die Zelle G4 schreiben
.Font.Name = "Wingdings" 'Schriftart auswählen
If CheckBox1.Value Then
.Value = "ü" 'Buchtabe ü ergibt einen Haken als Eintrag in der Zelle
Else
.Value = ""
End If
End With
https://www.herber.de/bbs/user/62939.xls
Gruß Werner