{"id":55000056,"date":"2011-08-01T00:00:00","date_gmt":"2020-01-24T15:57:46","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=56"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Schleifen_in_VBA","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Schleifen_in_VBA.html","title":{"rendered":"Schleifen in VBA"},"content":{"rendered":"

Wenn Sie in VBA einen Vorgang mehr als einmal durchführen möchten, verwenden Sie dazu eine sogenannte Schleife. Davon gibt es verschiedene Arten: Eine wird entsprechend einer vorgegebenen Anzahl durchlaufen, andere bis zum Eintreten einer bestimmten Bedingung. Dieser Artikel stellt die verschiedenen Schleifenarten vor.<\/p>\n

Schleifen<\/h2>\n

Grundsätzlich sind Schleifen Code-Konstrukte und ähneln vom Aufbau her den VBA-Routinen. Sie besitzen einen Schleifenkopf und eine abschließende Anweisung, die allerdings in diesem Fall nur das Ende eines Durchlaufs der Anweisungen innerhalb der Schleife bedeutet.<\/p>\n

Beispiele<\/h2>\n

Die Beispiele dieses Artikels finden Sie im Modul mdlSchleifen <\/b>der Beispieldatenbank Access_Basics_2011_04.mdb<\/b>.<\/p>\n

For…Next-Schleife<\/h2>\n

Die For…Next<\/b>-Schleife zeichnet sich dadurch aus, dass zu Beginn festgelegt wird, wie oft die enthaltenen Anweisungen durchlaufen werden.<\/p>\n

Um nachzuhalten, wie oft die Anweisungen innerhalb der Schleife bereits durchlaufen wurden, wird eine sogenannte Laufvariable verwendet, die meistens i <\/b>genannt wird.<\/p>\n

Die erste Zeile der For…Next<\/b>-Schleife enthält außerdem noch den ersten und den letzten Wert sowie gegebenfalls eine Schrittweite. Die Standardschrittweite lautet 1<\/b>. Man gibt nur in Ausnahmefällen eine alternative Schrittweite an – dazu später mehr.<\/p>\n

Die letzte Zeile einer For…Next<\/b>-Schleife enthält lediglich das Next<\/b>-Schlüsselwort und optional den Namen der Laufvariable (dies dient ausschließlich der übersicht). Insgesamt sieht eine For…Next<\/b>-Schleife, die beispielsweise mit den Werten von 1 <\/b>bis 10 <\/b>für die Variable i <\/b>durchlaufen werden soll, wie folgt aus:<\/p>\n

Dim <\/span>i As Integer<\/span>\r\nFor i = 1 To 10\r\n     Debug.Print<\/span> i\r\nNext<\/span> i<\/pre>\n
Innerhalb der For…Next<\/b>-Schleife wird der Wert von i <\/b>im Direktfenster ausgeben. Dort erscheinen beim Aufrufen der Prozedur ForNext_I <\/b>des Moduls mdlSchleifen <\/b>der Beispieldatenbank also die Zahlen von 1 <\/b>bis 10<\/b>. Der Ablauf der For…Next<\/b>-Schleife wird auch vom Flussdiagramm in Bild 1 skizziert. Die Schleife startet mit dem Wert 1 <\/b>für die Variable i<\/b>.<\/p>\n
\"Flussdiagramm<\/a><\/p>\n
Bild 1: Flussdiagramm für eine For…Next-Schleife<\/p>\n
Enthält i <\/b>einen Wert kleiner oder gleich dem Endwert der Schleife, werden die Anweisungen des Schleifenkörpers ausgeführt und i <\/b>um eins erhöht.<\/p>\n
Monate ausgeben<\/h2>\n
Die Laufvariable können Sie gleich sinnvoll nutzen. Das folgende Beispiel durchläuft etwa die Zahlen von 1 bis 12 und gibt die entsprechenden Monatsnamen aus:<\/p>\n
For i = 1 To 12\r\n     Debug.Print<\/span> Format(\"1.\" & i & \".\" & Year(Date), ?\r\n                                              \"mmmm\")\r\nNext<\/span> i<\/pre>\n
Schrittweite mit Step einstellen<\/h2>\n
Der For…<\/b>-Zeile können Sie noch das Schlüsselwort Step mit der gewünschten Schrittweiter hinzufügen. Wenn Sie die Zahlen von 10 <\/b>bis 1 <\/b>rückwärts durchlaufen möchten, geben Sie als Startwert 10<\/b>, als Endwert 1 <\/b>und für Step den Wert -1 <\/b>an:<\/p>\n
For i = 10 To 1 Step -1\r\n     Debug.Print<\/span> i\r\nNext<\/span> i<\/pre>\n
Exit For<\/h2>\n
Gelegentlich werden Sie eine For…Next<\/b>-Schleife vorzeitig verlassen wollen. In diesem Fall können Sie die Exit For<\/b>-Anweisung verwenden:<\/p>\n
For i = 1 To 10\r\n     Debug.Print<\/span> i\r\n     If <\/span>i = 5 Then<\/span>\r\n         Exit For<\/span>\r\n     End If<\/span>\r\nNext<\/span> i<\/pre>\n
Verschachtelte Schleifen<\/h2>\n
Möglicherweise möchten Sie einmal zwei oder mehr verschachtelte Schleifen verwenden. Dazu benötigen Sie entsprechend viele Laufvariablen, im folgenden Beispiel i und j: <\/p>\n
Dim <\/span>i As Integer<\/span>\r\nDim <\/span>j As Integer<\/span>\r\nFor i = 1 To 5\r\n     For j = 1 To 5\r\n         Debug.Print<\/span> \"(\" & j & \",\" & i & \")\",\r\n     Next<\/span> j\r\n     Debug.Print<\/span>\r\nNext<\/span> i<\/pre>\n
Die obigen Schleifen geben eine Zahlenmatrix wie in Bild 2 aus. Damit jeweils fünf Einträge nebeneinander ausgegeben werden, beenden Sie die Debug.Print<\/b>-Anweisung der inneren Schleife mit dem Komma-Zeichen.<\/p>\n
\"Ausgabe<\/a><\/p>\n
Bild 2: Ausgabe zweier verschachtelter For…Next-Schleifen<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t