"Userformeinträge in Tabelle speichern"

Private Sub CmdBtn1_Click()
Dim frm As UserFrm1
Set frm = UserFrm1
Sheets("tabelle2").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
On Error GoTo fehler
With frm
With CmbBox1                 'liste der Cmbox1
.AddItem "a:rund"
.AddItem "a:rund/i:rund"
.AddItem "a:r'eck"
.AddItem "a:r'eck/i:rund"
.AddItem "Vieleck"
.AddItem "Anschnitt"
End With
ActiveCell.Value = DateValue(Now)
ActiveCell.Offset(0, 11).Value = .CmbBox1.ListIndex
ActiveCell.Offset(0, 2).Value = .TxtBox1.Value
ActiveCell.Offset(0, 3).Value = .TxtBox2.Value
ActiveCell.Offset(0, 4).Value = .TxtBox3.Value
ActiveCell.Offset(0, 5).Value = .TxtBox4.Value
ActiveCell.Offset(0, 6).Value = .TxtBox5.Value
ActiveCell.Offset(0, 7).Value = .TxtBox6.Value
ActiveCell.Offset(0, 8).Value = .TxtBox7.Value
ActiveCell.Offset(0, 9).Value = .TxtBox8.Value
ActiveCell.Offset(0, 10).Value = .TxtBox9.Value
ActiveCell.Offset(0, 12).Value = .TxtBox1 * .TxtBox9
If .OptionBtn1.Value = True Then
ActiveCell.Offset(0, 1).Value = "Formatblech"
Else
ActiveCell.Offset(0, 1).Value = " "
If .OptionBtn2.Value = True Then
ActiveCell.Offset(0, 1).Value = "Ausstich/Restblech"
Else
ActiveCell.Offset(0, 1).Value = " "
If .OptionBtn3.Value = True Then
ActiveCell.Offset(0, 1).Value = "Schmiedrohling"
Else
ActiveCell.Offset(0, 1).Value = " "
If .OptionBtn4.Value = True Then
ActiveCell.Offset(0, 1).Value = "Aus Blech gebrannt"
Else
ActiveCell.Offset(0, 1).Value = " "
Exit Sub
fehler:
MsgBox " Sie haben das Gewicht oder den Bestand nicht angegeben"
End If
End If
End If
End If
End With
End Sub