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