Ich habe eine For iRow Formel die runter zählt. Wie kopiere ich die momentan gültige iRow
nach ROW ("5:5").
Vielen Dank und ein schönes Wochenende.
Gruss urs
Sub Datenblattdruck()
Dim iRow As Integer, iRowL As Integer
Dim jRow As Integer, jRowL As Integer
Sheets("BASISDATEN").Select
Range("A3").Select
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 8 Step -1
Rows(iRow).Copy
Rows(5).PasteSpecial
Application.CutCopyMode = False
Sheets("Verbraucher neu").Select
Sheets("Verbraucher neu").Copy
ThisWorkbook.SaveAs _
Filename:=Range("E1").Value
Print
Next iRow '
End Sub