CBdl und Laufzeitfehler 13
17.09.2004 21:22:48
Koznako
Mit folgende Code schreibe ich aus Uf TextBox in Tabelle ein. Es funktioniert auch nur wenn ich einen vorhandenen Eintrag aus TextBox löschen will kommt Meldung : Laufzeitfehler 13 (Typen unverträglich). Und drite zeile wird markiert # Cells(e, 2).Value = CDbl(e1.Text) #. Kann jemand mir weiter helfen ?
Private Sub e1_Change()
If Datum.ListIndex = -1 Then Exit Sub
Cells(e, 2).Value = CDbl(e1.Text)
End Sub
e1 = TextBox
Datum = ListBox
Gruß Koznako