Private
Sub
CommandButton2_Click()
If
OptionButton1 =
True
Then
Dim
lasta
As
Long
With
Worksheets(
"Tabelle1"
)
lasta = .Cells(.Rows.Count, 1).
End
(xlUp).Row + 1
If
lasta <= 7
Then
lasta = 7
.Cells(lasta, 1).Value = TextBox1
.Cells(lasta, 2).Value = TextBox2
.Cells(lasta, 3).Value = TextBox3
.Cells(lasta, 4).Value = TextBox4
.Cells(lasta, 5).Value = TextBox5
.Cells(lasta, 6).Value = ComboBox1
.Cells(lasta, 2).NumberFormat =
"General"
End
If