habe mir vollgende UserForm gebastellt:
Private Sub CommandButton1_Click()
Set Frm = UserForm1
Sheets("Serovar2").Activate
Range("B65536").End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .CDbl(TextBox2.Value)
ActiveCell.Offset(0, 2).Value = .TextBox3.Value
End With
End Sub
Die TextBox2 soll als Zahl ausgegeben werden. Es kommt aber bezogen auf mein CDbl eine Fehlermeldung.
TextBox3 soll al Datum ausgegeben werden.
Kann mir jemand bei meinem Problem helfen?
Schöne Grüße
Gourmet