Hallo,
leider komme ich in einem Makro nicht weiter.
Ich würde gerne in 5er-Schritten drucken.
ez wird im Makro ermittelt, dann soll in 5er-Schritten gedruckt werden.
Do While ez >= 0
For i = ez To ez - 5 Step -1
nr = Sheets("A").Cells(i, 1)
Sheets("B").Range("d5") = nr
Sheets("B").PrintOut
Next i
ez = ez - 5
Loop
|