Hallo,
versuchs mal so:
Dim wks As Worksheet
Dim addnew as Long, letzteR as Long
Set wks = Tabelle8
letzteR = wks.Cells(Rows.Count, 1).End(xlUp).Row
addnew = 21
If letzteR < addnew Then
wks.cells(addnew, 1) = txt_1.Text
wks.cells(addnew, 2) = txt_1.Text
wks.cells(addnew, 3) = txt_1.Text
wks.cells(addnew, 4) = txt_1.Text
wks.cells(addnew, 5) = txt_1.Text
Else
wks.cells(addnew + 1, 1) = txt_1.Text
wks.cells(addnew + 1, 2) = txt_1.Text
wks.cells(addnew + 1, 3) = txt_1.Text
wks.cells(addnew + 1, 4) = txt_1.Text
wks.cells(addnew + 1, 5) = txt_1.Text
End If
Gruss Torsten
|