Fehler abfangen in UserForm

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Fehler abfangen in UserForm
von: Michael
Geschrieben am: 27.05.2002 - 08:57:24

Hallo
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 ??

nach oben   nach unten

Re: Fehler abfangen in UserForm
von: Harald Kapp
Geschrieben am: 27.05.2002 - 09:06:49

Hallo Michael,
Du kannst an jeder Stelle vorher abfragen, ob die eingegebene oder umzuwandelnde Zelle, Box... eine Zahl enthölt:


if isnumeric(WERT) then
   'was auch immer mit dem Wert zu tun ist
else
   msgbox "Keine Zahl!"
end if

Gruß Harald

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Fehler abfangen in UserForm"