For Next Schleife soll bei der Ausgabe die Zeile nicht überspringen?
Hi! Ich habe eine For Next Schleife in Excel, die die Ziffern 1-10 in einer Step 2 Reihe durchzählt. Demnach stehen die Ziffern 1,3,5,7 und 9 immer im Abstand von einer Zeile zueinander. jetzt möchte ich sie aber alle untereinander stehen haben. Wie kriege ich das hin?
2 Antworten
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
For i=1 To 10 Step 2
ActiveCell.Value = i
Set ActiveCell = ActiveCell.Offset(1,0)
Next
(ungetestet)
Es gibt aber noch andere Möglichkeiten. Zum Beispiel könntest du die aktive Zelle fix halten und den Offset als 1+(i-1)/2 berechnen.
Oder du zählst in Einerschritten und gibst immer Schritt*2-1 aus.
Oder du lässt eine weitere Zählvariable j mit laufen, die in jedem Durchlauf nur um 1 erhöht wird.
Oubyi, UserMod Light
06.12.2016, 13:17
@Oubyi, UserMod Light
P.S.: Die beiden weiteren Möglichkeiten, die Du aufführst sollten auch funktionieren.
Dim i As Integer
For i = 1 To 5
Range("A" & i) = 2 * i - 1
Next i
SO klappt es nicht, da das verschieben der ActiveCell nicht hinhaut.
Mit direktem Offset und der von Dir beschriebenen Berechnung würde in der Zelle UNTER der Aktiven Zelle mit dem Eintrag begonnen.
SO wird IN der aktiven Zelle mit dem Eintrag begonnen: