Microsoft Office Tutorials and References
In Depth Information
3.5 Schleifen
Zur Erläuterung:
Die Zahlen 1 bis 10 in der Spalte A waren bereits vorhanden.
Als Zählervariable dient i .
Der Zielbereich wird vorher mit der Methode Clear() gelöscht, da
auch die nachfolgenden Ergebnisse hier notiert werden.
Die Schleife wird erstmalig mit i = 3 und letztmalig mit i = 7 durch-
laufen.
Es ist keine Schrittweite angegeben, also ist die Schrittweite 1.
Schrittweite 1
Ein weiteres Beispiel:
Sub ForNext2()
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle2").Activate
Range("B1:B10").Clear
Fori=3To7Step2
Cells(i, 2).Value = Cells(i, 1).Value * 2
Next i
End Sub
Das Ergebnis sehen Sie in Abbildung 3.13.
Abbildung 3.13
Schleife von 3 bis 7, Schrittweite 2
Zur Erläuterung:
Als Schrittweite ist 2 angegeben, daher wird nur jede zweite Zelle
bearbeitet.
Schrittweite 2
Ein letztes Beispiel:
Sub ForNext3()
Dim i As Integer
Search JabSto ::




Custom Search