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