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