Hallo!
Habe zwei Programme mit dem selben Code allerdings einmal mit Autofiler Funktion.Ohne Autofilter funktionierts einwandfrei kopieren des Tabellenblattes und einfügen ohne Formeln in neue Tabelle Seiteneinrichtung,Kopf u. Fusszeile u. Spaltenbreite werden ebenfalls übernommen.
ActiveSheet.Select
Cells.Select
Selection.Copy
Range("A3").Select
Workbooks.Add
Selection.PasteSpecial xlPasteValues
Selection.PasteSpecial xlFormats
Application.CutCopyMode = False
Range("A3").Select
Warum werden bei dem nun folgenden Code der an sich der gleiche ist die Seiteneinrichtung, Kopf u. Fusszeile und die Spaltenbreiten nicht übernommen?
Selection.AutoFilter Field:=10, Criteria1:=""
ActiveSheet.Select
Cells.Select
Selection.Copy
Range("B8").Select
'Umstieg auf GeliefertK..... Neues Tabellenblatt erzeugen
Windows(strAktiveDatei).Activate
Sheets("Tabelle2").Activate
ActiveSheet.Name = ("Instandsetzungsauftrag")
'Einfügen der Selektion
Selection.PasteSpecial xlPasteValues
Selection.PasteSpecial xlFormats
Application.CutCopyMode = False
Was mache ich da falsch?
Kann mir das jemand sagen.
Mit besten Dank im Voraus
Gerhard