Public Sub Kopieren_Speichern()
Dim loLetzte As Long, i As Long, loZähler As Long
Application.ScreenUpdating = False
With Worksheets("Export")
loLetzte = .Cells(.Rows.Count, "B").End(xlUp).Row
For i = 2 To loLetzte Step 100
loZähler = loZähler + 1
.Range(.Cells(i, "B"), .Cells(i + 99, "BE")).Copy _
Worksheets("Speichern").Cells(1, "A")
Worksheets("Speichern").Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Datei_fertig_" & loZähler
ActiveWorkbook.Close
Worksheets("Speichern").Cells.ClearContents
Next i
End With
End Sub