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, 5545 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 ..
Ähnliche Inhalte
Neue Wissensbeiträge
Rechtliche Fragen

Heiseshow, live ab 12 Uhr: Steht die Vorratsdatenspeicherung vor dem Aus?

Tipp von sabines zum Thema Rechtliche Fragen ...

Outlook & Mail

Outlook Probleme nach Juni Updates - KB3203467 ist Schuld

(1)

Information von Deepsys zum Thema Outlook & Mail ...

Microsoft Office

Windows 7, Office 2016 RTM und Updates ohne WSUS

Tipp von chgorges zum Thema Microsoft Office ...

E-Mail

Thunderbird 52 hat Druckprobleme

(3)

Tipp von magicteddy zum Thema E-Mail ...

Heiß diskutierte Inhalte
Server-Hardware
Einem Stromausfall entgegen wirken (22)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Server-Hardware ...

Festplatten, SSD, Raid
PC stellt nach dem Bios ab (20)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...

DSL, VDSL
gelöst Ständige Störungen - Internet (12)

Frage von gamerff zum Thema DSL, VDSL ...