Fehler abfangen in UserForm
27.05.2002 08:57:24
Michael
Beim Code
Private Sub CommandButton1_Click()
x=1
Do While Cells(x,1) <> ""
X = x + 1
Loop
If TextBox1 <> "" Then
Cells (x,3) = CDbl(TextBox1)
end If
If ComboBox2 <> "" Then
Cells (x,4) = CDbl(ComboBox2)
usw....
Nun zum meinem Problem als blutiger Anfänger:
Wenn ich nun statt der geforderten Zahl einen Textzeichen
eingebe bringt er mir eine Fehlermeldung, sollte also eine
Fehlerroutine einbauen die das abfängt.
Also z.B. wenn TextBox1 = "Text", dann msgBox "Bitte eine Zahl eingeben" nach OK drücken - UserForm neu aufrufen
Wie geht das ??