Ich "exportiere" mit nachfolgendem Makro meine Daten da ich den VBA Code löschen will.(Hab ich aus dem Archiv)
Allerdings werden die eingestellten Formate wie Querformat, Ansicht 79%, Gitternetzlinien aus und die Ränder der Seitenansicht nicht mit uebernommen
Wie sag ich dem Makro das es das soll?
Welche Befehle gibt es hier?
Vielen Dank fuer Hilfe
Gruss
Ernst
Sub xyz()
Dim wkb1 As Workbook, wkb2 As Workbook
Set wkb1 = ActiveWorkbook ' merken des "aktiven" Workbooks
Set wkb2 = Workbooks.Add ' hinzufügen + merken eines neuen Workbooks
' kopieren der 1. Tabelle auf 1. Tabelle im neuen Workbook:
wkb1.Worksheets(1).Cells.Copy Destination:=wkb2.Worksheets(1).Cells
End Sub