Guten Abend,
ich würde bei meinem VBA Programm gerne die Werte von 2 Textfeldern vergleichen und je nachdem etwas ausrechnen. Leider kommt bei meiner If Abfrage immer heraus, dass der Wert des ersten Textfeldes größer ist als der des zweiten auch wenn das eigentlich nicht der Fall ist.
Das ist der Code:
If Me.txtGrenzschlankheitsgrad.Value >= Me.txtvorhSchlankheitsgrad.Value Then
Me.lblKSEuler.Visible = False
Me.txtKnickspannungEuler.Visible = False
Me.txtKnickspannungTetmajer.Value = Val(Replace(Replace((Tabelle9.Cells(Me.cboMaterial.ListIndex + 2, 4) - (Tabelle9.Cells(Me.cboMaterial.ListIndex + 2, 5) * Me.txtvorhSchlankheitsgrad.Value) + (Tabelle9.Cells(Me.cboMaterial.ListIndex + 2, 6) * (Me.txtvorhSchlankheitsgrad.Value) ^ (2))), ".", ""), ",", "."))
End If
If Me.txtGrenzschlankheitsgrad.Value <= Me.txtvorhSchlankheitsgrad.Value Then
Me.lblKSTetmajer.Visible = False
Me.txtKnickspannungTetmajer.Visible = False
Me.txtKnickspannungEuler.Value = Val(Replace(Replace(((9.8696 * (Tabelle9.Cells(Me.cboMaterial.ListIndex + 2, 2))) / ((Me.txtvorhSchlankheitsgrad.Value) ^ (2))), ".", ""), ",", "."))
End If
Kann mir jemand Sagen warum hier immer die erste If Bedingung erfüllt ist und die zweite nie laut VBA?
|