VBA für Einsteiger - MS Excel 2003 (3)

Von: Dieter Frommhold
Stand: 18. August 2006
Anmelden um Kommentare zu schreiben

Einige Steueranweisungen

Die For - Next - Schleife

Nach End-If im vorigen ersten Code-Beispiel im Punkt 6.3 zum Eingabetest folgt eine Schleife mit vorgegebener Zykluszahl 20. Die Schleife beginnt mit der Laufklausel For und endet mit der Anweisung Next. Zu Beginn wird die Laufvariable I in der Laufklausel (For) auf 1 gesetzt und nach jedem Schleifendurchlauf um die Schrittweite 1(Step) sooft erhöht bis der Endwert 20 nicht überschritten wird. Der Zyklus endet an der Next-Anweisung.

Code:

Worksheets("Tabelle1").Range("E3") = Ganz

For I = 1 To 20

Worksheets("Tabelle1").Cells(4 + I, 4) = Ganz

Worksheets("Tabelle1").Cells(4 + I, 6) = I * Ganz

Next

Bei Worksheets("Tabelle1").Cells(4 + I, 4) = Ganz wird den Zellen der 4.Spalte (das ist die Spalte D) von Zeile 5 bis 25 der Wert in Ganz zugewiesen. Die Zellen genau 2 Spalten rechts daneben in der 6. Spalte (Das ist die Spalte F) erhalten durch Worksheets("Tabelle1").Cells(4 + I, 6) = I * Ganz jeweils das Produkt aus I und Ganz.(Vergl. Bild Beispiel für Entscheidung und Zyklen unter Punkt 6.3.)

Diese Seite ist für Mitglieder von akademie.de reserviert.

Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?

Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?

Ich bin bereits Mitglied
Jetzt Probemitglied werden
Ich kann in den 14 Tagen Probezeit formlos z.B. per E-Mail stornieren. Wenn ich das nicht tue, entscheide ich mich für ein