Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

CBdl und Laufzeitfehler 13

Betrifft: CBdl und Laufzeitfehler 13 von: Koznako
Geschrieben am: 17.09.2004 21:22:48

Hallo Leute !
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
  


Betrifft: AW: CBdl und Laufzeitfehler 13 von: Ulf
Geschrieben am: 17.09.2004 21:27:36

Unglückliche namen für die controls, leicht verwechselbar!

Private Sub e1_Change()
If Datum.ListIndex = -1 Then Exit Sub
if len(e1)> 0 then Cells(e, 2) = CDbl(e1)
End Sub


Ulf


  


Betrifft: AW: CBdl und Laufzeitfehler 13 von: Koznako
Geschrieben am: 17.09.2004 21:45:23

Danke Ulf !

Es funktioniert wunderbar !

Gruß Koznako


 

Beiträge aus den Excel-Beispielen zum Thema "CBdl und Laufzeitfehler 13"