Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wiederholungsschleife !

Wiederholungsschleife !
08.12.2003 10:19:22
Flo
Hallo,

ich bräuchte mal eine Hilfetsellung:
Folgende Prozedur habe ich bislang. Wenn eine 0 eingegeben wird, soll diue Inputbox wieder eingeblendet werden. Wie mach ich das??

'Inputboxen
ZeileStart = InputBox("Nummer der ersten zu vergleichenden Zeile eingeben")
If ZeileStart = 0 Then
MsgBox "Fehler: Anfangszeile kann nicht 0 sein !", vbExclamation, "Fehler !"
End If

Vielen Dank für Eure Hilfe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wiederholungsschleife !
08.12.2003 10:34:43
Lars
versuch mals das...


Sub test()
Dim ZeileStart As Byte
ZeileStart = 0
Do While ZeileStart = 0
'Inputboxen
ZeileStart = InputBox("Nummer der ersten zu vergleichenden Zeile eingeben")
If ZeileStart = 0 Then
MsgBox "Fehler: Anfangszeile kann nicht 0 sein !", vbExclamation, "Fehler !"
End If
Loop
End Sub
mfg Lars

AW: Wiederholungsschleife !
08.12.2003 10:34:56
Andi
Hi Flo,

Do
'Inputboxen
ZeileStart = InputBox("Nummer der ersten zu vergleichenden Zeile eingeben")
If ZeileStart = 0 Then
MsgBox "Fehler: Anfangszeile kann nicht 0 sein !", vbExclamation, "Fehler !"
End If
Loop Until ZeileStart <> 0

Schönen Gruß
Andi
Anzeige
Herzlichen Dank !!
08.12.2003 10:42:39
Flo
Schleifen funktionieren !!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige