If-Beziehung: Wenn Textfeld Zahl enthält
04.06.2006 20:36:41
Matthias
folgendes Problem.
Die unten stehende If-Bedingung, hab ich in nem Textfeld stehen. Sie teilt sämtliche Werte, die >= 10 sind durch 100. Also 95% wird zu 0,95. Wenn ich jetzt aber Buchstaben in das Textfeld eingebe, steigt logischerweise der Compiler aus. Ich muss also irgendwie noch einbauen, das er nur dann den Rechenschritt vollzieht, wenn der Eingabewert auch wirklich eine Zahl ist und bei Buchstabeneingabe nichts geschehen soll.
Private Sub txtpUmgeb_Change()
Dim Wert As Double
If txtpUmgeb.Value <> "" Then
Wert = txtpUmgeb.Value
If Wert >= 10 And Wert < 100 Then
Wert = Wert / 100
End If
txtpUmgeb.Value = Wert
End If
End Sub
Das..
If txtpUmgeb.Value <> ""
..verwende ich, weil er sonst aussteigt, wenn man die Zahl wieder aus dem Feld löscht.
Vielen Dank schon mal.
Gruß.
Matthias