If Entscheidung

Forumthread: If Entscheidung
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: If Entscheidung

If Entscheidung

04.03.2004 12:42:23

Thomas

Hallo,
hier der Code
Dim wteingabe As String
wteingabe = InputBox("Gebe eine Zahl 1-107 ein")
If wteingabe < 1 Then
MsgBox "Null ist nicht vorhanden"
GoTo weiter
ElseIf wteingabe > 107 Then
MsgBox "Mehr als 107 ist nicht vorhanden"
GoTo weiter
Else
MsgBox "Ok"
End If
Mein Problem ist nun, bei Eingabe von einem Buchstaben etc. stürzt er ab.
Kann mir da jemand helfen?
Danke
Thomas

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: If Entscheidung

04.03.2004 12:49:21

Worti
AW: If Entscheidung

04.03.2004 13:23:29

Thomas
AW: If Entscheidung

04.03.2004 13:54:17

Thomas

AW: If Entscheidung

04.03.2004 12:49:21

Worti

Hallo Thomas,
mit einer weiteren If-Abfrage auf numerisch prüfen:


If Not IsNumeric(wteingabe) Then
MsgBox ("Eingabe muß numerisch sein")
GoTo weiter

Worti

AW: If Entscheidung

04.03.2004 13:23:29

Thomas

Super, vielen Dank Worti

AW: If Entscheidung

04.03.2004 13:54:17

Thomas

Hallo Worti,
habs jetzt eingebaut. Bringt mir aber immer nen Fehler?
Fehler: Laufzeitfehler 13 Typen unverträglich
Was mach ich falsch?
Danke
Gruß Thomas

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!