Beispiele<\/h2>\n
Die ersten Beispiele zu diesem Artikel findest Du in in der Excel-Datei VBABasics_Schleifen.xlsm<\/b> oder in der Access-Datenbank VBABasics_Schleifen.accdb<\/b>.<\/p>\nFor…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. Für diese Variable legt man einen Zahlendatentyp wie Integer <\/b>oder Long <\/b>fest. Wenn Du den Typ Integer <\/b>wählst, musst Du den recht kleinen Wertebereich von -32.768 <\/b>bis 32.767 <\/b>beachten.<\/p>\n
Die erste Zeile der For…Next<\/b>-Schleife enthält außerdem noch den ersten und den letzten Wert sowie gegegebenfalls 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 Laufvariablen. 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 Innerhalb der For…Next<\/b>-Schleife wird der Wert von i <\/b>im Direktfenster ausgeben. Dort erscheinen beim Aufrufen der Prozedur ForNext_Einfach <\/b>des Moduls mdlBeispieleSchleifen <\/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 Bild 1: Diagramm für den Ablauf einer einfachen For…Next-Schleife<\/span><\/b><\/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 Die Laufvariable können wir gleich sinnvoll nutzen. Das folgende Beispiel durchläuft etwa die Zahlen von 1 <\/b>bis 12 <\/b>und gibt die entsprechenden Monatsnamen aus:<\/p>\n Der For…<\/b>-Zeile können wir noch das Schlüsselwort Step<\/b> mit der gewünschten Schrittweite hinzufügen.<\/p>\n Wenn wir die Zahlen von 10 <\/b>bis 1 <\/b>rückwärts durchlaufen möchten, geben wir als Startwert 10<\/b>, als Endwert 1 <\/b>und für Step <\/b>den Wert -1 <\/b>an:<\/p>\n Gelegentlich werden wir eine For…Next<\/b>-Schleife vorzeitig verlassen wollen. In diesem Fall können wir die Exit For<\/b>-Anweisung verwenden:<\/p>\n Möglicherweise möchten wir einmal zwei oder mehr verschachtelte Schleifen verwenden. Dazu benötigen wir entsprechend viele Laufvariablen, im folgenden Beispiel i <\/b>und j<\/b>: <\/p>\n Die obigen Schleifen geben eine Zahlenmatrix wie in Bild 2 aus. Damit jeweils fünf Einträge nebeneinander ausgegeben werden, beenden wir die Debug.Print<\/b>-Anweisung der inneren Schleife mit dem Komma-Zeichen.<\/p>\n Bild 2: Ausgabe einer Zahlenmatrix mit zwei verschachtelten Schleifen<\/span><\/b><\/p>\n Dies bedeutet, dass die folgende Debug.Print<\/b>-Anweisung in die gleiche Zeile drucken soll – und zwar mit einem Tabulator-Schritt als Abstand.<\/p>\n Wir können auch das Semikolon als letztes Zeichen angeben. Die Ausgabe wird dann unmittelbar hinter dem letzten Zeichen fortgesetzt.<\/p>\n Damit die Ausgabe nach fünf Elementen in der folgenden Zeile fortgesetzt wird, ruft die Prozedur nach der Abarbeitung der inneren Schleife eine Debug.Print<\/b>-Anweisung ohne auszugebenden Text auf.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Dim <\/span>i As Integer<\/span>\r\nFor i = 1 To 10\r\n Debug.Print<\/span> i\r\nNext<\/span> i<\/pre>\n![\"Diagramm](\"..\/fileadmin\/_temp_\/2022_06\/pic_343_003.png\")
<\/p>\nMonate ausgeben<\/h2>\n
Dim <\/span>i As Integer<\/span>\r\nFor i = 1 To 12\r\n Debug.Print<\/span> Format(\"1.\" & i & \".\" & Year(Date), _\r\n \"mmmm\")\r\nNext<\/span> i<\/pre>\nSchrittweite mit Step einstellen<\/h2>\n
Dim <\/span>i As Integer<\/span>\r\nFor i = 10 To 1 Step -1\r\n Debug.Print<\/span> i\r\nNext<\/span> i<\/pre>\nExit For<\/h2>\n
Dim <\/span>i As Integer<\/span>\r\nFor 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>\nVerschachtelte Schleifen<\/h2>\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![\"Ausgabe](\"..\/fileadmin\/_temp_\/2022_06\/pic_343_002.png\")
<\/p>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 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