Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Laufzeitfehler im Programm
Autor: nok106
Datum: 25.01.06 13:55
Hallo Leute, beim Kompilieren bekomme ich in der markierten Zeile, den< Laufzeitfehler "13" Typen unverträglich>. Kann Jemand helfen, den Fehler zu korrigieren ? Ohne gs = Zeile läuft das Programm einwandfrei. MfG Odje Private Sub cmdBerechnen_Click() Dim rv, av, kv, pv, gs As Single Dim e As Long e = TextE If e < 62400 Then rv = Format(Round(e * 9.75 / 100, 2), "0.00") av = Format(Round(e * 3.25 / 100, 2), "0.00") ElseIf e > 62004 Then rv = Format(6084, "0.00") av = Format(2028, "0.00") End If If e < 42300 Then kv = Format(Round(e * (6.15 + 0.9) / 100, 2), "0.00") pv = Format(Round(e * 0.0085, 2), "0.00") ElseIf e > 42300 Then kv = Format(2982.15, "0.00") pv = Format(359.55, "0.00") End If gs = Format(Round(kv + pv + rv + av, 2), "0.00") <---- Laufzeifehler Textrv = rv Textav = av Textkv = kv Textpv = pv Textgs = gs End Sub Private Sub cmdNeustart_Click() Dim c As Control For Each c In Me If TypeOf c Is TextBox Then c.Text = "" End If Next TextE.SetFocus End Sub MfG Odje

Laufzeitfehler im Programm	544	nok106	25.01.06 13:55
Re: Laufzeitfehler im Programm	304	Desatrous	25.01.06 14:34
Re: Laufzeitfehler im Programm	302	nok106	25.01.06 15:31

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen