Einer der größten Vorteile von Programmcode gegenüber manueller Arbeit ist die Fähigkeit, eine Aufgabe beliebig oft zu wiederholen – ohne Ermüdung, ohne Fehler durch Unachtsamkeit und in Sekundenbruchteilen. Genau dafür gibt es Schleifen. In VBA stehen dafür mehrere Konstrukte zur Verfügung: For…Next<\/b> für Situationen, in denen man genau weiß, wie oft etwas wiederholt werden soll, For Each…Next<\/b> zum Durchlaufen von Auflistungen, sowie Do…Loop<\/b> und While…Wend<\/b> für Fälle, in denen die Anzahl der Durchläufe vorab nicht bekannt ist. In diesem Artikel zeigen wir, wie alle diese Konstrukte funktionieren, wo ihre Stärken liegen und worauf man achten muss.<\/p>\nFor…Next – die Zählschleife<\/h2>\n
Die For…Next<\/b>-Schleife ist die klassische Zählschleife. Man gibt einen Startwert, einen Endwert und optional eine Schrittweite an, und VBA führt den Schleifenkörper für jeden Schritt einmal aus. Das sieht in seiner einfachsten Form so aus:<\/p>\n Dieser Code gibt die Zahlen 1 bis 10 im Direktbereich aus. Die Zählvariable i<\/b> beginnt bei 1<\/b>, wird nach jedem Durchlauf um 1<\/b> erhöht und die Schleife endet, sobald i<\/b> den Wert 10<\/b> überschreitet.<\/p>\n Das Schreiben von Next i<\/b> statt nur Next<\/b> ist optional, macht den Code bei verschachtelten Schleifen aber deutlich lesbarer – denn bei mehreren ineinander verschachtelten Schleifen sieht man sofort, welches Next<\/b> zu welchem For<\/b> gehört.<\/p>\n Als Zählvariable sollte man stets Long<\/b> verwenden – nicht Integer<\/b>, wie wir im Artikel VBA [basics]: Variablen und Datentypen<\/b> bereits begründet haben.<\/p>\n Standardmäßig zählt For…Next<\/b> in Einerschritten aufwärts. Mit dem Schlüsselwort Step<\/b> lässt sich das ändern – sowohl die Schrittweite als auch die Richtung:<\/p>\n Das Rückwärtszählen ist besonders dann nützlich, wenn man während des Schleifendurchlaufs Elemente aus einer Liste entfernt – weil man beim Vorwärtszählen nach dem Entfernen eines Elements die Indizes durcheinanderbringt.<\/p>\n For Each…Next<\/b> ist die elegantere Variante, wenn man nicht mit einem Zähler arbeiten möchte, sondern direkt über die Elemente einer Auflistung iterieren will.<\/p>\n In Access begegnet uns das häufig beim Durchlaufen aller Steuerelemente eines Formulars oder aller Felder eines Datensatzes:<\/p>\n Dieser Code gibt die Namen aller Steuerelemente des aktuellen Formulars im Direktbereich aus.<\/p>\n Man muss weder wissen, wie viele Steuerelemente vorhanden sind, noch einen Zähler verwalten – For Each<\/b> erledigt das automatisch.<\/p>\n Die Schleifenvariable (ctl<\/b> in diesem Fall) nimmt bei jedem Durchlauf das nächste Element der Auflistung an.<\/p>\n Wichtig: Bei vielen COM-Auflistungen wie Controls<\/b> oder Fields<\/b> kann das Hinzufügen oder Entfernen von Elementen während eines For Each<\/b>-Durchlaufs zu Laufzeitfehlern führen. Wenn man Elemente entfernen muss, verwendet man stattdessen eine normale For…Next<\/b>-Schleife, die rückwärts läuft.<\/p>\n Manchmal weiß man beim Start einer Schleife nicht, wie oft sie durchlaufen werden soll – sondern nur, unter welcher Bedingung sie enden soll. Dafür ist Do…Loop<\/b> gedacht. Es gibt vier gebräuchliche Varianten, die sich in der Position und Art der Bedingung unterscheiden.<\/p>\n Die erste Variante prüft die Bedingung am Anfang mit While<\/b> – die Schleife läuft, solange die Bedingung wahr ist:<\/p>\n Die zweite Variante prüft am Anfang mit Until<\/b> – die Schleife läuft, bis die Bedingung wahr wird:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Dim <\/span>i As Long<\/span><\/span>\r\nFor i = 1 To 10\r\n Debug.Print<\/span><\/span> i\r\nNext<\/span> i<\/pre>\nSchrittweite anpassen mit Step<\/h2>\n
'Nur gerade Zahlen von 2 bis 20:\r\nFor i = 2 To 20 Step 2\r\n Debug.Print<\/span><\/span> i\r\nNext<\/span> i\r\n'Rückwärts von 10 bis 1:\r\nFor i = 10 To 1 Step -1\r\n Debug.Print<\/span><\/span> i\r\nNext<\/span> i<\/pre>\nFor Each…Next – Auflistungen durchlaufen<\/h2>\n
Dim <\/span>ctl As <\/span><\/span>Control\r\nFor Each ctl In Me.Controls\r\n Debug.Print<\/span><\/span> ctl.Name\r\nNext<\/span> ctl<\/pre>\nDo…Loop – wenn die Anzahl der Durchläufe unbekannt ist<\/h2>\n
Do While<\/span> lngZaehler < 100\r\n lngZaehler = lngZaehler + 1\r\nLoop<\/span><\/pre>\nDo Until lngZaehler >= 100\r\n lngZaehler = lngZaehler + 1\r\nLoop<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t