Access VBA: Do loop Schleifen While vorgelagert
Access VBA
Sub Do…Loop_Teil_1()
Zähler = 0
Vorgabewert = 20
Do While Vorgabewert > 10
Vorgabewert = Vorgabewert - 1
Zähler = Zähler + 1
Loop
MsgBox "Die Schleife wurde " & Zähler & " mal durchlaufen."
End Sub
Access VBA: For Next Schleifen Teil 4 Verschachtelung
Computer,Office,Access,VBA,Makro
Access,VBA,Schleife,Verschachteln,For,Next
Im ersten Teil haben Sie erfahren, wie Sie eine einfache Schleife in VBA aufbauen können. Im zweiten Teil wurde Ihnen
gezeigt, wie Sie die Schrittweite verändern können. Im dritten Teil wurde Ihnen gezeigt, wie Sie eine Schleife vorzeitig
verlassen können. Nun zeige ich Ihnen ein Beispiel, wie Sie eine Schleife verschachteln können.
Bei einer Verschachtelung gibt es eine Schleife innerhalb der Schleife. Ein Beispiel dafür finden Sie hier:
Sub Schleifen_For_Next()
For i = 1 To 100
k = k + 1
For j = 1 To 100
l = l + 1
Next j
Next i
MsgBox k
MsgBox l
End Sub
In diesem Beispiel wird für den Wert k 100 ausgegeben und für den Wert l 10000, weil bei jedem Durchlauf der ersten
Schleife (i) die zweite Schleife (j) jeweils 100-mal durchlaufen wird.