Ich möchte folgenden Code ergänzen und zwar in beiden neuen Sheets die Spalten A:D sowie U:V und die Zeilen 3:4 löschen.
Kann mir jemand einen Tipp geben, wie ich dies in die untenstehende "with activeworkbook" - Schlaufe integriere?
Besten Dank.
Peter
....
....
'Kopiert aktuelles Sheet in eine neue Mappe
'dubliziert diese und benennt beide
'beim Sheet "Data" werden die Formatierungen
'gelöscht
ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Copy after:=.Sheets(1)
.Sheets(1).Cells.ClearFormats
.Sheets(1).Name = "Data"
.Sheets(2).Activate
.Sheets(2).Name = "Print"
.SaveAs SavePath & "\" & File
End With
....
....