✔ Fehlermeldung

[revenge86]

Hallo @ All,
wenn ich folgenden Quelltext komplimiere:

Private Sub cmdBerechnen_Click()

Dim Auswertung, Groesse, Gewicht As Double

Groesse = editGroesse.Text
Gewicht = editGewicht.Text

If Groesse = "" Or Gewicht = "" Then
MsgBox ("!! Fehler !!")
Exit Sub
Else


Auswertung = Gewicht / Groesse ^ 2

End If
editAuswertung.Text = "Ihr BMI beträgt: " & Auswertung

If Auswertung < 18 Then
Auswertung = MsgBox("Sie haben Untergewicht", vbCritical, "BMI Auswertung")

ElseIf Auswertung > 19 And Not dblBMI_Auswertung > 27 Then
Auswertung = MsgBox("Sie haben Normalgewicht", vbOKOnly, "BMI Auswertung")

ElseIf Auswertung > 28 Then
Auswertung = MsgBox("Sie haben Übergewicht", vbCritical, "BMI Auswertung")

End If


End Sub

erscheint wenn ich im Editfeld Gewicht, die Fehlermeldung Runtime Error '13'.
Kann mir jemand weiterhelfen

Bedanke mich schon mal im Vorraus.

MfG

 

[wincnc]

Hallo, versuch´s mal so:

Private Sub cmdBerechnen_Click()

Dim Auswertung As Double, Groesse As Double, Gewicht As Double

If editGroesse.Text <> "" And IsNumeric(editGroesse.Text) Then
  Groesse = CDbl(editGroesse.Text)
Else
  MsgBox "Bitte geben Sie eine gültige Grösse ein !", vbInformation, "Fehler"
  Exit Sub
End If

If editGewicht.Text <> "" And IsNumeric(editGewicht.Text) Then
  Gewicht = CDbl(editGewicht.Text)
Else
  MsgBox "Bitte geben Sie ein gültiges Gewicht ein !", vbInformation, "Fehler"
  Exit Sub
End If

  Auswertung = Gewicht / Groesse ^ 2
  
  editAuswertung.Text = "Ihr BMI beträgt: " & CStr(Auswertung)
  
  If Auswertung < 18 Then
    Auswertung = MsgBox("Sie haben Untergewicht", vbCritical, "BMI Auswertung")
  ElseIf Auswertung > 19 And Not dblBMI_Auswertung > 27 Then
    Auswertung = MsgBox("Sie haben Normalgewicht", vbOKOnly, "BMI Auswertung")
  ElseIf Auswertung > 28 Then
    Auswertung = MsgBox("Sie haben Übergewicht", vbCritical, "BMI Auswertung")
  End If

End Sub

 

[revenge86]

Danke wincnc. Es jetzt ohne eine Fehlermeldung zu bringen.
Nochmals danke