Live-Forum - Die aktuellen Beiträge

Datum

Titel

26.09.2025 08:51:00

Teilinhalt einer Zelle vergleichen

25.09.2025 23:04:12

Einen von drei möglichen Einträgen in einer Zeile suchen

25.09.2025 19:59:48

Lebenserleichternde Datei, im Bezug auf die Essensauswahl

25.09.2025 16:01:26

VBA - Laufzeitfehler 9105 zu viele Zeichen 255

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Do...Loop-Schleife

Forumthread: Do...Loop-Schleife
11 Beiträge zu diesem Forumthread
Anzeige
196 Threads zu ähnlichen Themen
Top 100 Forumthreads

Forumthread: Do...Loop-Schleife

Do...Loop-Schleife

03.01.2005 19:23:27

Jan

Hallo,
ich habe ein Problem mit der unten aufgeführten Schleife. Das Makro bleibt immer in der dritten Zeile hängen.
Für Hilfe bedanke ich mich im Voraus.
Jan


Sub Abfrage()
Do While Passwort = InputBox("Passwort")
Loop Until Passwort = "Geheim"
End Sub

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Do...Loop-Schleife

03.01.2005 19:32:25

Matthias
AW: Do...Loop-Schleife

Jan
AW: Do...Loop-Schleife

Reinhard
AW: Do...Loop-Schleife

Jan
AW: Do...Loop-Schleife

Reinhard
Nachtrag

Reinhard
AW: Do...Loop-Schleife

Jan
AW: Do...Loop-Schleife

Reinhard
AW: Do...Loop-Schleife

Jan
Wie beendet man eine Endlosschleife

Reinhard
Danke für Eure selbstlose Hilfe

Jan

AW: Do...Loop-Schleife

03.01.2005 19:32:25

Matthias

Hallo Jan,

Sub Abfrage()
Do
Passwort = InputBox("Passwort")
Loop Until Passwort = "Geheim"
End Sub

Du solltest aber noch eine Möglichkeit zum Abbrechen einbauen.
Gruß Matthias

AW: Do...Loop-Schleife

Jan

Hallo Mathias,
ich danke Dir für Deine spontane Hilfe. Du meinetst, ich solle eine Möglichkeit zum abbrechen einbauen. Wie könnte denn sowas aussehen?
Jan

AW: Do...Loop-Schleife

Reinhard

Hi Jan,
probier doch mal:


Sub Abfrage()
Do
Passwort = InputBox("Passwort")
if Passwort="" then exit sub
Loop Until Passwort = "Geheim"
End Sub

Gruß
Reinhard

AW: Do...Loop-Schleife

Jan

Hi,
lässt sich die Funktion dieses Makros auch mit einer While...Wend-Schleife realisieren?
Jan

AW: Do...Loop-Schleife

Reinhard

Hi Jan,
so (ungetestet):


Sub abfrag()
Dim Passwort As Variant
Passwort = "xyz"
While Passwort <> "Geheim"
InputBox ("Passwort")
If Passwort = "" Then Exit Sub
Wend
End Sub

gruß
reinhard

Nachtrag

Reinhard

so klappts besser *g


Sub abfrag()
Dim Passwort As Variant
Passwort = "xyz"
While Passwort <> "Geheim"
Passwort = InputBox ("Passwort")
If Passwort = "" Then Exit Sub
Wend
End Sub

gruß
Reinhard

AW: Do...Loop-Schleife

Jan

...und das nächste Problemchen ;o)
Wie kann ich eine Schleife anhalten, wenn das Makro nicht zum Ende kommt?
Jan

AW: Do...Loop-Schleife

Reinhard

Hi Jan,
verstehe ich nicht, du musst doch bei der Eingabe nur nix eingeben, dann ist das Makro beendet.
Gruß
Reinhard

AW: Do...Loop-Schleife

Jan

:0) ...wenn's so einfach wäre...
Ich hab eine Schleife ausgeführt, hab aber einen Fehler drinen. Nun hänge ich in der Schleife und kann am Makro-Code nix ändern.
Jan