Laufzeitfehler 13
31.01.2007 20:15:06
Gerhard
bei meiner Anwendung erhalte ich immer wieder Laufzeitfehler 13.
Ich habe herausgefunden, dass in der Währung das "EUR" steht.
(Systemsteuerung, Region- und Sprachauswahl, Anpassen, Währung)
Ich schreibe mit folgender Prozedur in die Tabelle zurück:
Private Sub textbox69_AfterUpdate()
Dim datenlager As String
'Komma und Tausenderpunkte setzen. Prüfen ob Feld leer
Select Case Len(TextBox69.Value)
Case 0
TextBox69 = 0
End Select
datenlager = Format(TextBox69.Value, "##,##0.00 ")
TextBox69.Value = datenlager
Range("b91") = TextBox69 * 1
End Sub
Was kann ich an diesem Code ändern, dass der Laufzeitfehler13 nicht mehr auftritt???
Vielen Dank für Eure Hilfe
Gruss
Gerhard