Laufzeitfehler 13 bei leerem Formularfeld
21.09.2007 14:19:00
Moritz
Ich habe folgenden Makrocode gebastelt. Wenn ich mal nichts in die Felder eintrage und auf Bestätigen klicke, kommt der Laufzeitfehler 13. Wie kann ich den Fehler beseitigen, so dass er einfach nichts in die Felder einträgt bzw. nur etwas in die Felder einträgt, die ich auch im Formular eingegeben habe.
Formular:
Private Sub CommandButton1_Click()
'Betrag
Range("K1") = CDbl(TextBox1)
'Tilgung
Range("K2") = CDbl(TextBox2)
'Zinssatz
Range("K3") = CDbl(TextBox3)
'Anfangs Datum
Range("K4") = CDate(TextBox4)
'1. Tilgung
Range("K5") = CDate(TextBox5)
'Tilgungszeitraum
Range("K6") = CDbl(TextBox6)
Unload Me
End Sub
Modul:
Sub auto_open()
UserForm1.Show
End Sub
Vielen Dank schon einmal!
Moritz