Hallo,
ich habe eine Datei programmiert, bei der in einem Userform verschiedene Zahlen eingelesen werden sollen. Bei einer Texteingabe wird eine Fehlermeldung ausgegeben.
Nur bei einem Wert (Verh) funktioniert es nicht: Dieser Wert darf 0 sein (anders als die anderen). Wenn jetzt ein Text eingegeben wird, wird dieser zu 0 konvertiert und der Fehler mitübernommen. Folglich kann dieser nicht ausgeschlossen werden.
Hat jemand eine Lösung für dieses Problem?
Hier der entsprechende VBA-Code:
'Einlesen
vE = Val(txt_vE)
Verh = Val(txt_Verh)
rhoW = Val(txt_rhoW)
rhoE = Val(txt_rhoE)
MMW = Val(txt_MMW)
MME = Val(txt_MME)
'Werteprüfung
fra_Ergebnis.Visible = False
If rhoW <= 0 Or rhoE <= 0 Or MMW <= 0 Or MME <= 0 Then
MsgBox "Bitte Werte überprüfen! Die Dichten und Molmassen müssen größer als 0 sein."
GoTo LetzteZeile
ElseIf Verh > 1 Or Verh < 0 Then
MsgBox "Bitte Werte überprüfen! Der Schnitt muss zwischen 0 und 1 liegen."
GoTo LetzteZeile
ElseIf vE <= 0 Then
MsgBox "Bitte Werte überprüfen! Der Volumenanteil Ethanol muss größer 0 sein."
GoTo LetzteZeile
Else
GoTo Weiterrechnen
End If
Weiterrechnen:
Mit besten Grüßen
Michael