Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBScript - Fehler in DO-LOOP

Frage Entwicklung VB for Applications

Mitglied: Dani

Dani (Level 5) - Jetzt verbinden

05.04.2007, aktualisiert 22:12 Uhr, 5533 Aufrufe, 2 Kommentare

Guten Abend zusammen,

ich sitze hier grad vor einem VBScript und komme einfach nicht weiter. Und zwar sieht der Code zum Zeitpunkt "JETZT" so aus:
01.
Do 
02.
strOU2 = UCase(InputBox("Bitte geben Sie die Jahrgangszahl ein:"& VBCR &"(z.B. 2006)","Abfrage")) 
03.
 
04.
If strOU2 = "" Then 
05.
	MsgBox("Keine Jahreszahl angegeben!") 
06.
Else If (Len(strOU2) < "4") Then 
07.
	MsgBox("Bitte 4 stellig!") 
08.
	strOU2 = "" 
09.
Else If (Len(strOU2) > 4) Then 
10.
	MsgBox("Die Jahrszahl ist zu groß!") 
11.
	strOU2 = "" 
12.
End If 
13.
Loop While strOU2 = ""
Sobald ich alle Else If - Bedingungen auskommentiere funktioniert alles wunderbar. Ansonsten erscheint folgende Meldung:
a939e5a5b495db90239c4174e4e6c241-snap1 - Klicke auf das Bild, um es zu vergrößern

Bin mal gespannt, was ich übersehen habe!! Das OS ist Windows Server 2003.


Grüße
Dani
Mitglied: bastla
05.04.2007 um 22:07 Uhr
Hallo Dani!

Eine der erfrischendsten Eigenschaften der VB*-Fehlermeldungen ist, dass bei nicht abgeschlossenen Blöcken der Schuldige meist an der völlig falschen Stelle gesucht/gemeldet wird ...

Nicht abgeschlossen sind bei Deinem Beispiel die beiden "Else If"-Konstrukte - durch die Leerstelle dazwischen werden sie nämlich als jeweils neue "If-Then-End If"-Blöcke betrachtet, so dass also die beiden "End If" fehlen würden.

Wenn Du jeweils "ElseIf" ohne Leerstelle schreibst, ist der Spuk vorbei.

Grüße
bastla
Bitte warten ..
Mitglied: Dani
05.04.2007 um 22:12 Uhr
Hallo bastla,
oh man...so einfach kann es sein! Das habe ich noch nicht probiert. Vielen Dank und einen schönen Abend noch.


Grüße
Dani
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Drucker und Scanner
Laserjet 3600N Fehler PCL Error (1)

Frage von grillinator95 zum Thema Drucker und Scanner ...

SAN, NAS, DAS
S.M.A.R.T Fehler QNAP (11)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...

Blogs
What will we do when everything is automated? (5)

Link von Sheogorath zum Thema Blogs ...

Heiß diskutierte Inhalte
Erkennung und -Abwehr
Virenschutz - Meinungen (27)

Frage von honeybee zum Thema Erkennung und -Abwehr ...

Netzwerke
Abisolierwerkzeug (18)

Frage von SarekHL zum Thema Netzwerke ...

Windows 10
Welches OS für Firmengeräte? (17)

Frage von MarkusVH zum Thema Windows 10 ...

Exchange Server
SBS2011: POP3-Connector 10 MB Grenze Email Benachrichtigung (17)

Frage von bogi1102 zum Thema Exchange Server ...