Sub Test()
Dim Seitenanzahl As Integer
Seitenanzahl = Sheets("Filter").HPageBreaks.Count
Dim Zeile As Integer
realeZeile = 0
With Worksheets("Filter")
For I = 1 To Seitenanzahl
Hilf = realeZeile
Zeile = .HPageBreaks(I).Location.Row
realeZeile = Hilf + Zeile
Range("A1:F1").Copy Destination:=Range("A" & realeZeile)
Next I
End With
End Sub
Leider stürzt der beim zweiten durchlaufen der Schleife immer ab. Weiß jemand warum?
Vielen Dank!
Amy