Fehler in der Berechnung (VB 6.0)

[Nichtwisser]

Hallo Leute,

vorweg, ich bin nur ein "Heimwerker".

Im Link ist das Problem gekennzeichnet.
Gibt es hierfür eine Lösung?

http://member.file-upload.net/nok106/Berechnung.xls

Einstweilen herzlichen Dank an alle, die sich für mich bemühen.

Gruß

Odje

 

[Nirraven]

Wieso machst du anstatt

        kst2 = Format(Round(Val(kst1) - kst, 2), "0.00")
        If Val(kst1) < 1 Then
        kst2 = Val(kst1)
        End If

nicht einfach

        kst2 = Round(CDbl(kst1) - kst, 2))
        If CDbl(kst1) < 1 Then
        kst2 = CDbl(kst1)
        End If

Ich befürchte, dass da was in der formatierung nicht klappt.
Frag mich aber nicht was... ^^

 

[Nichtwisser]

Hi Nirraven,

wenn ich den Code so eingebe,

kst2 = Round(CDbl(kst1) - kst, 2))
        If CDbl(kst1) < 1 Then
        kst2 = CDbl(kst1)
        End If

kommt die Fehlermeldung "Erwartet Anweisungsende".

Trotzdem besten Dank für deine Antwort.

Gruß

Odje

 

[Shakie]

Ich würde mal schätzen, dass da eine Klammer am Ende der 1. Zeile zu viel ist.

 

[Nirraven]

Ich würde mal schätzen, dass da eine Klammer am Ende der 1. Zeile zu viel ist.

Jep, klammer zu viel, das hat man von "mal eben". Danke shakie...