Microsoft Excel

Herbers Excel/VBA-Archiv

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

Fehler 13 bei Formatangabe | Herbers Excel-Forum


Betrifft: Fehler 13 bei Formatangabe von: Andy Herrmann
Geschrieben am: 17.10.2008 15:14:45

Hallo Forum!
Ich hoffe Ihr könnt mir bei einem Problem helfen.
Folgendes:

Bei mir auf dem Rechner läuft der unten stehende Code ohne Probleme durch. Habe Excel 2003. Auch auf einem anderen Rechner mit Excel 2007 läuft er ohne Probleme.

Allerdings bei einem Freund, für den ich das ganze Programmiert habe, kommt in einer einzelnen Prozedur (siehe unten) immer der Fehler. "Code 13, Typen unverträglich"
Er hat Excel 2007.


Private Sub CommandButton1_Click()
y = 1
If Not UF_Anzeige.Controls("TextBox" & y).Value = "" Then entsch = MsgBox("Achtung, dieser  _
Button wurde heute schonmal betätigt!" & _
Chr(10) & "Wollen Sie wirklich noch ein zweites mal 2,50 € buchen??", vbYesNo, "Achtung!")
If entsch = vbNo Then Exit Sub
If UF_Anzeige.Controls("TextBox" & y) = "" Then UF_Anzeige.Controls("TextBox" & y) = CDbl( _
Format((5 / 2), "#,##0.00 €"))
If entsch = vbYes Then UF_Anzeige.Controls("TextBox" & y) = Format(UF_Anzeige.Controls("TextBox" _
 _
  _ & y).Value + (5 / 2), "#,##0.00 €")
'auf Gesamtbestand übertragen
UF_Anzeige.Controls("TextBox" & y + 22) = Format(UF_Anzeige.Controls("TextBox" & y + 22).Value + _
 _
 (5 / 2), "#,##0.00 €")

Call berechnen
End Sub



Der Fehler kommt in der Codezeile

If UF_Anzeige.Controls("TextBox" & y) = "" Then UF_Anzeige.Controls("TextBox" & y) = CDbl(Format((5 / 2), "#,##0.00 €"))


Ich habe schon versucht den Code bissl umzuschreiben bzw am Format was zu ändern, aber der Fehler bleibt.

Bin ratlos :-(
Hat von Euch noch einer eine Idee??

Vielen Dank schonmal

LG Andy

  

Betrifft: AW: Fehler 13 bei Formatangabe von: Heinz
Geschrieben am: 17.10.2008 16:15:28

Hi,

wozu die ganzen Umstände:

If UF_Anzeige.Controls("TextBox" & y) = "" Then UF_Anzeige.Controls("TextBox" & y) = "2,50 €"


mfg Heinz


  

Betrifft: AW: Fehler 13 bei Formatangabe von: Andy Herrmann
Geschrieben am: 17.10.2008 17:22:01

Hallo nochmal.

Hab alles geändert. Der Fehler tritt immer noch auf.
Aber nur an dem einen bestimmten Rechner. Bei mir läuft er in eins durch :-(

Ich habe die Tabelle mal hoch geladen. Vielleicht übersehe ich ja irgendwas grundlegendes...

https://www.herber.de/bbs/user/56082.zip

Danke..

Andy


  

Betrifft: AW: Fehler 13 bei Formatangabe von: Tino
Geschrieben am: 19.10.2008 10:06:44

Hallo,
ohne Deinen Code zu testen, müsste er so aussehen.

If UF_Anzeige.Controls("TextBox" & y) = "" Then _
UF_Anzeige.Controls("TextBox" & y) = CStr(Format((5 / 2), "#,##0.00")) & " €"

Ich gehe mal davon aus, dass Du in der Textbox einen Betrag mit zwei Nachkommastellen und dem € Zeichen stehen haben möchtest.
Eine TextBox erwartet als Eingabe einen Text und daher kannst Du diese nicht wie eine Zelle Formatieren, auch wenn dieser Text wie eine Zahl aussieht bleibt es ein Text.

Vielleicht hilft dir dies weiter.

Gruß Tino


  

Betrifft: AW: Fehler 13 bei Formatangabe von: Tino
Geschrieben am: 19.10.2008 11:00:45

Hallo,
hier Deine umgebaute Datei.

https://www.herber.de/bbs/user/56108.zip

Habe nicht alle Einzelheiten getestet.


Gruß Tino


  

Betrifft: AW: Fehler 13 bei Formatangabe von: Andy Herrmann
Geschrieben am: 19.10.2008 20:23:28

Hallo!
Danke erstmal für Deine Mühe!

Hab die Tabelle grad meinem Kumpel geschickt. Meld mich morgen früh und schreibe ob's nun funktioniert bei dem Rechner. *hoff*

Schönen Restsonntag erstmal noch..


Beiträge aus den Excel-Beispielen zum Thema "Fehler 13 bei Formatangabe"