So verwenden Sie Excel VBA, um eine Endlosschleife zu unterbrechen (3 einfache Möglichkeiten) (2023)

Excel VBA wird verwendet, um sich wiederholende Aufgaben zu automatisieren, indem Benutzern das Schreiben von Code in Modulen und benutzerdefinierten Funktionen ermöglicht wird. Es kann jedoch auch fehleranfällig sein, zEndlosschleifen. Endlosschleifen treten auf, wenn ein Teil des Codes zu unbegrenzten Zeiten ausgeführt wird. Um Ihren Code erfolgreich auszuführen, müssen Sie wissen, wie Sie mit Excel VBA eine Endlosschleife unterbrechen. Eine Möglichkeit besteht darindebuggenIhren Code, um den Abschnitt des Codes zu identifizieren, in dem das Problem liegt, und dann diesen. Sie können bedingte Anweisungen, Fehlerbehandlung und die Option „Diesen Teil verlassen“ verwenden, um eine Endlosschleife zu unterbrechen.

Laden Sie das Übungsarbeitsbuch herunter

Sie können das Arbeitsbuch herunterladen, um es selbst zu üben.

Was ist eine Endlosschleife in Excel VBA?

EinEndlosschleifeIn Excel tritt VBA auf, wenn ein Codeabschnitt kontinuierlich und ohne Unterbrechung wiederholt wird. Dadurch reagiert der Code nicht mehr und das Programm kann abstürzen.

Hier sehen Sie unten ein Beispiel einer Endlosschleife.

Sub Infinite_Loop1()x = 0Do Until x = 2x = x + 1LoopEnd Sub

Im obigen Code wollten wir den Code ausführen, bis der Wert von erreicht istXist gleich2Zu Beginn legen wir jedoch den Wert von festXals0. Als Wert vonXwird es nie sein2Dadurch entsteht eine Endlosschleife.

So starten Sie den VBA-Editor in Excel

Zueinen VBA-Code in Excel schreiben,Sie müssen das startenVBAEditor. Für den StartVBAEditor, Sie müssen das benötigenEntwicklerTab, jetzt, wenn Sie das nicht sehenEntwicklerTab dann musst duAktivieren Sie die Registerkarte „Entwickler“..

Sie können Ihren Code mithilfe der unten aufgeführten Schritte in ein Modul einfügen.

• Gehen Sie zunächst zuEntwicklerTab >> klicken Sie aufVisual Basic.

• Jetzt dieMicrosoft Visual BasicDer Editor wird geöffnet.
• Um abschließend ein Modul hinzuzufügen, klicken Sie aufEinfügung>> AuswählenModul.

Excel VBA zum Unterbrechen der Endlosschleife (3 einfache Möglichkeiten)

Hier haben wir einen Datensatz, der Folgendes enthältName,Abteilung,UndGehalteiniger Mitarbeiter. Mithilfe dieses Datensatzes erstellen wir einige Endlosschleifen und zeigen Ihnen, wie Sie mit Excel VBA Endlosschleifen durchbrechen und die Probleme lösen können.

1. Verwenden Sie Tastaturkürzel, um die Endlosschleife in Excel VBA zu unterbrechen

Im ersten Beispiel verwenden wir den folgenden Code, der eine Endlosschleife erstellt, um das Gehalt der Mitarbeiter anzuzeigen.

• Fügen Sie den folgenden Code in Ihr Modul ein, um zu sehen, wie diese Endlosschleife funktionieren wird.

Sub Keyboard_Shortcuts()'Bereich gemäß Datensatz einfügenSet Rng = Range("D5:D13")For i = 1 To Rng.Rows.CountMsgBox Rng.Cells(i, 1)i = i - 1Next iEnd Sub

Im obigen Code haben wir eine Unterprozedur mit dem Namen erstelltTastaturkürzel. Dann legen wir den Zellbereich festD5:D13alsRng. Als nächstes haben wir eine erstelltFor-Schleifewobei der Wert um erhöht wird1jedes Mal und verwendet aMsgBoxum den Wert von zu zeigenZelle (i,1). Endlich haben wir1 subtrahiertvom Schleifenzähler (i) bei jeder Iteration. Diese Zeile erzeugt eine Endlosschleife als Wert vonichwird sich nie ändern.

• Wenn Sie nun den Code ausführen, werden Sie feststellen, dass der Code in einer Endlosschleife ausgeführt wird und wiederholt dieselbe Antwort anzeigt.

Um herauszufinden, wo der Fehler auftritt, oder um die Schleife zu beenden, können Sie verschiedene verwendenTastatürkürzel. Verwenden Sie eine der folgenden Schaltflächen, um Ihre Endlosschleife zu unterbrechen.

Weiterlesen:Excel VBA zur Verwendung einer For-Schleife mit zwei Variablen

1.1 Benutzen Sie die Esc-Taste, um die Endlosschleife zu beenden

Anwenden derEsc-Tasteist der einfachste Weg, eine Endlosschleife zu durchbrechen. Die Ausführung wird sofort gestoppt, wenn der Code im selben Thread wie die Schnittstelle ausgeführt wird. Diese Schaltfläche funktioniert jedoch nicht, wenn der Code in einem separaten Thread ausgeführt wird.

• Nachdem Sie den Code ausgeführt haben, wird er kontinuierlich ausgeführt.
• Wenden Sie nun das anEscKlicken Sie auf die Schaltfläche und dann aufEndeum die Codeausführung zu stoppen.

1.2 Verwenden Sie die Tasten Strg + Pause als herkömmliche Technik

Strg + PauseSchaltflächen unterbrechen die Codeausführung und ermöglichen Ihnen, Ihren Code zu debuggen und herauszufinden, wo das Problem liegt. Die Break-Taste kann je nach Laptop unterschiedlich sein. Verwenden Sie zum BeispielStrg + Fn + BSchaltflächen, um Ihre Endlosschleife zu unterbrechen, wenn Sie sie verwendenASUSLaptops.

• Nachdem Sie den obigen Code ausgeführt haben, klicken Sie aufStrg + PauseKlicken Sie auf die Schaltfläche und wählen Sie Debuggen.
• Somit finden Sie die Zeile, in der die Schleife unendlich viele Ergebnisse erzeugt.

1.3 Verwenden Sie die Tasten Strg + Alt + Entf, wenn Excel VBA einfriert

Du kannst den ... benutzenStrg + Alt + EntfSchaltflächen, wenn Excel VBAfriert ein. Diese Schaltflächen rufen Windows aufTaskmanager, mit dem das Schließen von Excel erzwungen werden kann. Diese Methode sollte nur verwendet werden, wenn Excel nicht reagiert. Um diese Methode zu verwenden, befolgen Sie die unten aufgeführten Schritte.

• Wenn Excel nach dem Ausführen Ihres Codes einfriert, drücken SieStrg + Alt + Entfund dann auswählenTaskmanager.
• ImTaskmanagerIm Feld werden alle aktuell ausgeführten Fenster angezeigt. WählenMicrosoft Excelund klicken Sie aufTask beenden.

So können Sie das Beenden des Codes erzwingen und Microsoft Excel schließen, wenn er einfriert.

1.4 Verwenden Sie Alt + Esc oder Strg + Scroll Lock, wenn die oben genannten Befehle nicht funktionieren.

Wenn dieEscTaste bzwStrg + PauseTasten funktionieren nicht. Halten Sie festAlt + EscTasten, bis die Endlosschleife unterbrochen wird. Diese Schaltfläche wird verwendet, wenn Sie auf andere Anwendungen zugreifen müssen, um das Problem zu beheben. Alle Versionen abWindows 7, diese Schaltflächen durchlaufen alle geöffneten Fenster. AnBüro 13, du kannst den ... benutzenStrg + Scroll-Tasteum dies zu tun, ohne irgendwelche Einstellungen zu ändern.

• Klicken Sie nach dem Ausführen des Codes aufAlt + EscoderStrg + Scroll-Tasteum die Unterbrechung der Endlosschleife zu beenden.

Daher können Sie diese Schaltflächen verwenden, um Code zu beenden oder zu debuggen, um das aktuelle Problem zu lösen.

2. Verwenden Sie die Bildschirmtastatur, um die Endlosschleife in Excel zu stoppen

Um eine Endlosschleife in Excel VBA zu stoppen, können Sie auch die verwendenBildschirmtastatur. Um die Bildschirmtastatur zu öffnen, befolgen Sie die unten aufgeführten Schritte.

• Klicken Sie zunächst auf IhrWindowsSchaltfläche >> auswählenEinstellungen.

• Dann gehen Sie zuBarrierefreiheitRegisterkarte >> klicken Sie aufKlaviaturMöglichkeit. Mach das ... anBildschirmtastatur.

• Somit erhalten Sie eine Tastatur auf Ihrem Bildschirm wie unten.

Alternativ können Sie auch die Tastenkombination verwendenWindows + Strg + O, um die Bildschirmtastatur zu öffnen.

• Führen Sie nun Ihren Code aus, indem Sie auf klickenLaufenTaste. Um das Stoppen zu erzwingen, drücken Sie dann den CodeStrg + ScrLk. Sie können auch auf klickenStrg + Pauseoder drückenEsc zweimal.

3. Verwendung der Schaltfläche „Ja, Nein, Abbrechen“ in MsgBox, um eine Schleife zu unterbrechen

In diesem Beispiel zeigen wir Ihnen, wie Sie mit Excel VBA eine Endlosschleife unterbrechen. Dafür verwenden wir dieStornierenKnopf reinMsgBoxum eine Endlosschleife in Excel zu beenden. Diese Methode ist benutzerfreundlich, da sie es dem Benutzer ermöglicht, die Schleife jederzeit zu verlassen, wenn auf die Schaltfläche „Abbrechen“ geklickt wird. Es eignet sich jedoch nicht für lange Codes, bei denen der Benutzer möglicherweise mehrmals auf die Schaltflächen klicken muss.

• Fügen Sie den folgenden Code in Ihr Modul ein, um diesen Code zu verwenden.

Sub MsgBox_Cancel_Button()'Bereich gemäß Datensatz einfügenSet Rng = Range("D5:D13")i = 1Do While Trueresponse = MsgBox(Rng.Cells(i, 1), vbYesNoCancel)'Wenn der Benutzer auf die Schaltfläche „Ja“ klicktWenn Antwort = vbYes Theni = i + 1If i > Rng.Rows.Count Theni = 1End If'Wenn der Benutzer auf die Schaltfläche „Nein“ klickt " wird angeklicktLoopEnd Sub

So unterbrechen Sie die Endlosschleife in Excel VBA für Mac

Um eine Endlosschleife in Excel VBA für Mac zu unterbrechen, können Sie Folgendes verwenden:Befehl (⌘) + Punkt (.)Tasten bzwStrg + EscTasten.

So unterbrechen Sie eine For-Schleife in Excel VBA

In den obigen Beispielen haben wir Ihnen gezeigt, wie Sie das könnendebuggenoder eine Endlosschleife stoppen. Im Falle eines endlosenFor-Schleife, du kannst den ... benutzenAusgang fürAnweisung, um die Schleife zu unterbrechen.

Sub Exit_For()'Bereich gemäß Datensatz einfügenSet Rng = Range("D5:D13")For i = 1 To Rng.Rows.CountMsgBox Rng.Cells(i, 1)i = i - 1Exit ForNext iEnd Sub

Im obigen Code als Zeile„i=i-1“Erstellt eine Endlosschleife, die wir verwendet habenAusgang fürdanach. Infolgedessen ist dieMsgBoxZeigt den Wert der ersten Zeile an und verlässt dann die, bevor zur nächsten Iteration übergegangen wirdFor-Schleife.

• Wenn Sie nun den Code ausführen, wird der Wert der ersten Zeile nur einmal angezeigt und dann wird der Code beendet.

Weiterlesen:Excel VBA: So beenden Sie eine For-Schleife (5 Beispiele)

So unterbrechen Sie eine Do While-Schleife in Excel VBA

In diesem Beispiel haben wir ein Endlos erstelltMachen Sie eine While-SchleifeDadurch werden die Gehaltswerte angezeigt, die über der Gehaltsgrenze in MsgBox liegen.

Sub Do_While()Dim SalaryLimit As DoubleDim Data_range As RangeDim Name As String, Salary As Double'Gehaltsgrenze hier festlegenSalaryLimit = 60000'Bereich gemäß Datensatz einfügenSet Data_range = Range("B5:D13")Do While TrueFor i = 1 To Data_range .Rows.CountName = Data_range.Cells(i, 1).ValueSalary = Data_range.Cells(i, 3).ValueIf Salary > SalaryLimit ThenMsgBox Name & _"'s Gehalt liegt über dem Grenzwert. Salary = $" & SalaryEnd IfNext iLoopEnd Sub

• Um dieses Problem zu lösen, können Sie eine hinzufügenBeenden Sie DoAnweisung, um die Schleife zu verlassen, nachdem alle Werte, die den Data_range durchlaufen, einmal angezeigt wurden.

Sub Exit_Do()Dim SalaryLimit As DoubleDim Data_range As RangeDim Name As String, Salary As Double'Gehaltsgrenze hier festlegenSalaryLimit = 60000'Bereich gemäß Datensatz einfügenSet Data_range = Range("B5:D13")Do While TrueFor i = 1 To Data_range .Rows.CountName = Data_range.Cells(i, 1).ValueSalary = Data_range.Cells(i, 3).ValueIf Salary > SalaryLimit ThenMsgBox Name & "'s Gehalt liegt über dem Grenzwert. Salary = $" & SalaryEnd IfNext iExit Do 'Verlasse die EndlosschleifeLoopEnd Sub

Hier haben wir das hinzugefügtBeenden Sie DoAnweisung vor der Loop-Anweisung, um die Schleife zu verlassen.

• Führen Sie nun den Code aus, um die anzuzeigenGehälterüber60000nur einer.

Weiterlesen:Excel VBA Break While-Schleife (4 einzigartige Möglichkeiten)

So unterbrechen Sie eine Do Until-Schleife in Excel VBA

In diesem Beispiel haben wir ein Endlos erstelltMachen Sie eine Until-SchleifeDadurch werden die Gehaltswerte angezeigt, die über der Gehaltsgrenze in MsgBox liegen.Do WhileUndMachen bisähneln sich darin, dass sie dazu verwendet werden, einen Codeblock zu wiederholen, während eine bestimmte Bedingung erfüllt ist. Der Hauptunterschied zwischen ihnen ist die Bedingung, die bestimmt, wann die Schleife ihre Iteration beendet.

Do WhileDie Schleife wird so lange fortgesetzt, wie die Bedingung im Block erfüllt istWAHRUndMachen bisDie Schleife wird so lange wiederholt, bis die nach dieser Anweisung angegebene Bedingung erfüllt istFALSCH.

Sub Do_Until()Dim SalaryLimit As DoubleDim Data_range As RangeDim Name As String, Salary As Double'Gehaltsgrenze hier festlegenSalaryLimit = 60000'Bereich gemäß Datensatz einfügenSet Data_range = Range("B5:D13")Do Until FalseFor i = 1 To Data_range .Rows.CountName = Data_range.Cells(i, 1).ValueSalary = Data_range.Cells(i, 3).ValueIf Salary > SalaryLimit ThenMsgBox Name & _"'s Gehalt liegt über dem Grenzwert. Salary = $" & SalaryEnd IfNext iLoopEnd Sub

Dieser Code ähneltBeispiel 4. Hier, anstatt aDo WhileSchleife haben wir a verwendetMachen bisSchleife und setze es alsFALSCHum eine Endlosschleife zu erzeugen.

Du kannst den ... benutzenBeenden Sie DoAnweisung auch in diesem Fall, um die Schleife zu verlassen.

Sub Do_Until()Dim SalaryLimit As DoubleDim Data_range As RangeDim Name As String, Salary As Double'Gehaltsgrenze hier festlegenSalaryLimit = 60000'Bereich gemäß Datensatz einfügenSet Data_range = Range("B5:D13")Do Until FalseFor i = 1 To Data_range .Rows.CountName = Data_range.Cells(i, 1).ValueSalary = Data_range.Cells(i, 3).ValueIf Salary > SalaryLimit ThenMsgBox Name & "'s Gehalt liegt über dem Grenzwert. Salary = $" & SalaryEnd IfNext iExit Do 'Verlasse die EndlosschleifeLoopEnd Sub

Hier haben wir das hinzugefügtBeenden Sie DoAnweisung vor der Loop-Anweisung, um die Schleife zu verlassen.

• Führen Sie abschließend den Code aus, um den anzuzeigenGehälterüber60000nur einer.

So beenden Sie ein Makro während der Ausführung in Excel

Es gibt mehrere Möglichkeiten, ein Makro während der Ausführung zu beenden. Sie sind unten aufgeführt.

• Das Makro kann gestoppt werdenRechtsklickKlicken Sie auf das Symbol im Benachrichtigungsfeld, wenn Sie die Anzeige ausgewählt habenBetriebSymbol, wenn ein Makro ausgeführt wird.
• Alternativ können Sie das Makro beenden, indem Sie auf drückenWindows + EndeTaste.
• Sie können diese Standardschlüssel ändern, indem Sie auf gehenOptionen>>Präferenzen>>Wiedergabe>>SonstigTab.

Dinge, an die man sich erinnern sollte

Es gibt verschiedeneBrechenTasten abhängig davon, welchen Laptop Sie verwenden. Bitte versuchen Sie, die für Ihren Laptoptyp vorgesehene Taste zu verwenden.

Abschluss

In diesem Artikel finden Sie Folgendes6Beispiele für Excel VBA zum Unterbrechen der Endlosschleife. Verwenden Sie eine dieser Methoden, um das entsprechende Ergebnis zu erzielen. Ich hoffe, Sie finden diesen Artikel hilfreich und informativ. Fühlen Sie sich frei, einen Kommentar abzugeben, wenn Ihnen etwas schwer verständlich erscheint. Teilen Sie uns alle anderen Ansätze mit, die wir hier möglicherweise übersehen haben. Und besuchen Sie dieExcelDemyWebsite für viele weitere Artikel wie diesen. Danke schön!

Verwandter Artikel

• So verwenden Sie eine verschachtelte For-Schleife in Excel VBA (3 nützliche Beispiele)