Office: If-Then-Else...Verständnisfrage zu Kriterium String > Zahl

Hallo,

ich habe eine Funktion erstellt. Diese wird mit Werten gefüttert, generell Zahlen als String und "echte" Strings. Damit ich mit den Zahlen Vergleiche anstellen kann wandele ich diese mit Cdbl um. Nun dachte ich dass wenn ich mit dem Größer-Kleiner Vergleich einen String mit einer Zahl vergleiche dass dieses nicht möglich ist und in den Else Zweig komme.
Ich bleibe aber immer im IF Zweig stehen, also Kriterium erfüllt. So ganz verstehe ich das nicht...

Kann da jemand Aufklärung leisten?

Vielen Dank.

Gruß bb

Code:

Public Function fct_Beschluss_erforderlich_MaCo_Test(Ausgangswert_EUR As Variant, Kostenprognose_EUR As Variant) As Variant

Dim strOutput As Variant, A As Variant, B As Variant

'übergeben Ausgangswert_EUR = "420.000"
'übergeben Kostenprognose_EUR = "k.A."

A = Ausgangswert_EUR 'kann Summe oder Text enthalten
B = Kostenprognose_EUR 'kann Summe oder Text enthalten


If IsNumeric(A) Then
    A = CDbl(A)
End If

If IsNumeric(B) Then
    B = CDbl(B)
End If

If A <= 500000 And B > 500000 Then
                'Ausstieg hier...Warum??? nach meinem Verständnis ist '420000 <= 500000 und "k.A." > 500000' nicht zutreffend
                'und ich würde in den Else Zweig rutschen...es ist aber der Wenn Zweig erfüllt...
    strOutput = "Beschluss erforderlich"
Else
    strOutput = "Fehler"
End If
   

fct_Beschluss_erforderlich_MaCo_Test = strOutput

End Function

 

Moin,
wie man hier lesen kann, liegt es wohl an Deinem Datentyp.


So funktioniert Deine Funktion:

Code:

Public Function fct_Beschluss_erforderlich_MaCo_Test(Ausgangswert_EUR As Variant, _
                                                     Kostenprognose_EUR As Variant) As Variant
 Dim strOutput As Variant, A As Double, B As Double

    If IsNumeric(Ausgangswert_EUR) Then A = CDbl(Ausgangswert_EUR)
    If IsNumeric(Kostenprognose_EUR) Then B = CDbl(Kostenprognose_EUR)
    If A <= 500000 And B > 500000 And A > 0 And B > 0 Then
        strOutput = "Beschluss erforderlich"
    Else
        strOutput = "Fehler"
    End If

    fct_Beschluss_erforderlich_MaCo_Test = strOutput

End Function

Gib mal in Deinem vba-Fenster im Direktbereich (Strg-G) folgendes ein: ?f>8 (Enter) und ?f<8 (Enter)

 

Katastrophe, hätte ich mal etwas weiter gelesen, die Erklärung ist eindeutig...und dein Beispiel auch.
?f>8 Falsch
?f<8 Wahr
Ich baue meine Funktion nach deinem Muster um, dann kann ich beruhigt weiterschlafen.

Vielen Dank für die Unterstützung.

Gruß bb