Hey leute,
kann mir jemand sagen, wo der Fehler liegt. Ich bekomme permanent die o.g. Fehlermeldung.
Private Sub CommandButton1_Click()
Set frm = UserForm21
Sheets("Tabelle1").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox3.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value
ActiveCell.Offset(0, 4).Value = .TextBox5.Value
ActiveCell.Offset(0, 5).Value = .TextBox6.Value
'Optionfeld auswerten
If .OptionButton1.Value = True Then
ActiveCell.Offset(0, 6).Value = "JA"
Else
ActiveCell.Offset(0, 6).Value = "NEIN"
End If
End With
End Sub
|