---

Geschrieben von Semipro am 09.02.2002 um 21:43:

  VBS-Script läuft nicht

Hi Leute,
warum funst folgender Code nicht?

Dim strA, strB

strA = 3
strB = InputBox ("nenne eine Zahl!")

If strB > strA Then
MsgBox (strA & " ist kleiner als " & strB)
EndIf

Die "\" sind nicht Teil des Codes

---

Geschrieben von LX am 10.02.2002 um 04:49:

 

Also bei mir funktioniert es einwandfrei.

---

Geschrieben von Semipro am 10.02.2002 um 11:05:

 

bei einer Zuweisung von 3 als Wert von strB, erscheint bei mir die MsgBox. dies sollte aber doch nur bei strB > strA
erfolgen. Auch eine Änderung des Vergleichsoperators zu "="
ergibt nicht das zu erwartende Ergebniss.
Ich gebe das in Notpad ein und speichere es unter .vbs.

Wenn ich es jedoch unter VBA in eine Excel Mappe schreibe verhält es sich richtig.

PS: wir reden aber schon von VBS?

---

Geschrieben von LX am 10.02.2002 um 14:06:

 

Zitat:

Original von Semipro Wenn ich es jedoch unter VBA in eine Excel Mappe schreibe verhält es sich richtig. PS: wir reden aber schon von VBS?

Oh, okay, dann ist es mein Fehler, ich dachte VBS ist nur ein Tippfehler (A ist ja gleich neben dem S). Hab's auch nur in Excel getestet.

Ich kenne mich zwar mit den VBS-Spezifikationen nicht aus, aber ich denke mal eine Klammerung

If (strA > strB) Then...

bringt auch nichts, oder?

---

Geschrieben von Semipro am 10.02.2002 um 19:07:

 

nach dem ausklammern erscheint die MsgBox in jedem Fall!

---

Geschrieben von Medusa am 05.03.2002 um 21:21:

 

Wenn du die 3 nicht in Anführungszeichen setzt, dann is des n Wert im Typ single und der kann net mit nem String verglichn werden.
So müsste es gehn:

Dim strA, strB
strA = "3"
strB = InputBox("nenne eine Zahl!")

If strB < strA Then
MsgBox (strB & " ist kleiner als " & strA)
End If

... un in deim Code würde in der msg-Box stehen dass
"A < B" wenn B < A hmmmmmmmm



Da fällt mir gerade ein:
Ich würde bei DIM noch "as single" hinschreiben. Denn
wenn des ein String is, dann is "200" < "3".
Also müsste des so heißen (jedoch ohne "", weil Single):

Dim A, B as Single
A = 3
B = InputBox("nenne eine Zahl!")

If B < A Then
MsgBox (B & " ist kleiner als " & A)
End If

---

Geschrieben von Semipro am 11.03.2002 um 14:24:

 

He, danke jetzt läuft das Ganze!
Die Anführungszeichen waren genau der richtige Tip!

Dim strA, strB
strA = "03"
strB = InputBox("nenne eine Zahl!")

If strB < strA Then
MsgBox (strB & " ist kleiner als " & strA)
End If

Also die Deklaration der Variablen als Single funst so nich,
weil VB Script alle Variablen automatisch als Variant deklariert!
Und die Sache mit
"Denn wenn des ein String is, dann is "200" < "3".
Also müsste des so heißen (jedoch ohne "", weil Single): "
kann man mit strA = "03" umgehen.