Hallo,

mittels einer InputBox wurde eine Zahl eingegeben und in der Variable 'eingabe' gespeichert. Nun soll die Eingabe auf Ganzzahligkeit überprüft werden.

Hier mein Code:


<font face="courier"> If eingabe<>int(eingabe) Then
MsgBox "Sie müssen ganze Zahlen eingeben!"
WScript.Quit
End If </font>

Leider gibt das Programm nun immer den Warnhinweis aus, auch wenn ich eine ganze Zahl eingebe. Was mache ich verkehrt?

Gruß
Sascha

Probier mal folgendes:

If (instr(1, eingabe, ",") > 0) or (instr(1, eingabe, ".") > 0) Then
MsgBox "Sie müssen ganze Zahlen eingeben!"
WScript.Quit
End If

Zwar keine wirklich tolle Lösung aber vielleicht geht's ja.

Probiere mal folgende Zeile aus:

If eingabe<>abs(eingabe) Then

... so geht das in VB ...

Jue

Jue schrieb am 15.03.2004 20:32
If eingabe<>abs(eingabe) Then

"Abs" gibt aber doch nur den Absolutwert (Betrag) einer Zahl zurück, also nur positive Zahlen. So geht es also definitv nicht.

Oh, da hab da wohl was verwechselt ...

Jue

Würde das nicht mit Integerbildung gehen=

if eingabe <> int(eingabe) then
MsgBox "Sie müssen ganze Zahlen eingeben!"
WScript.Quit
end if

So kanst du Zahlen von -65535 bis 65535 vergleichen

Felix Kröger

@Kröger: Wo ist der unterschied von deinem und den 1. QT ??? Ich sehe grade nicht den unterschied ...

Jue

Jue schrieb am 16.03.2004 15:32
Wo ist der unterschied von deinem und den 1. QT ???

lol, ich sehe auch keinen...

Also die Lösung von Marcus klappt wunderbar! Vielen Dank!

Sascha