Sub test()
Dim ez As Long, i As Long, nr As Long
ez = 10 'ich hoffe du hast ez vor der Schleife mit einem Wert versorgt
Do While ez >= 0 'die Bedingung ergibt zuletzt 1 x 0
For i = ez To ez - 5 Step -1
nr = Sheets("A").Cells(i, 1) 'und eine Zelle / Zeile 0 gibt net !
Sheets("B").Range("d5") = nr
Sheets("B").PrintOut 'der Ausdruck erfolgt bei jedem i - Wert *)
Next i
ez = ez - 5 'erst jetzt wird ez um 5 erniedrigt und die Schleife beginnt wieder
Loop
End Sub
'*) die Taktung ist demnach 10, 9, 8, 7, 6, 5, 5, 4, 3, 2, 1, 0, 0, -1, -2, -3, -4, -5
'ergo - Witz komm raus, du bist umzingelt
|