ich habe in einer UserForm 9 Textfelder, deren Inhalte in die jeweils erste leere Zeile einer Tabelle (Spalten A bis I) übertragen werden sollen.
Ich hoffe Ihr könnt mir helfen und danke schon mal für die Mühe.
Gruß
Niko
Private Sub CommandButton1_Click()
Dim i As Long, loLetzte As Long
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
For i = 1 To 9
.Cells(loLetzte, i) = Me.Controls("TextBox" & i)
Next i
End With
End Sub
Gruß WernerPrivate Sub cmdspeichern_Click()
Dim i, j As Long, loLetzte As Long
With Worksheets("Adressen")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
For i = 1 To 9
.Cells(loLetzte, i) = Me.Controls("txtZeile" & i)
Next i
For j = 10 To 19
.Cells(loLetzte, j) = Me.Controls("chkAnlass" & i).Value
Next j
End With
For i = 1 To 9
Me.Controls("txtZeile" & i) = ""
Next i
End Sub
Private Sub cmdspeichern_Click()
Dim i As Long, loLetzte As Long
With Worksheets("Adressen")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
For i = 1 To 9
.Cells(loLetzte, i) = Me.Controls("txtZeile" & i)
Me.Controls("txtZeile" & i) = ""
Next i
For i = 1 To 10
.Cells(loLetzte, i + 9) = Me.Controls("chkAnlass" & i)
Next i
End With
End Sub
Gruß Werner