Liebe Mitglieder,
in folgender code möchte ich noch die Formatierungen mitnehmen: welche Parameter muss einstellen?
DANKE!!
With Datei2019
For i = 1 To zahl
Worksheets(zahl + 1).Range("A1:H37").Copy Destination:=Worksheets(i).Range("A1:h37")
Next i