ich habe ein weiteres Problem.
Und zwar will ich eine Originalliste nach einem bestimmten Kriterium sortieren. Das funktioniert auch. Und in einer anderen Liste hatte ich mit diesem Makro keine Probeleme. Bei meiner derzeitigen Liste kommt allerdings folgender Fehlerhinweis incl. einer Messagebox:
"Microsoft Excel konnte nicht bestimmen, welche Zeile die Spaltenüberschriften enthält, und konnte deshalb nicht mit dem Filtern beginnen. Soll die erste Zeile der Markierung als Spaltenübersicht verwendet werden?
Klicken Sie auf ok, um die erste Zeile der Markierung, ohne Zeile des Filters, als Überschriften zu verwenden."
Meine kopierte Tabelle beginnt in Zeile 7, welche ebenfalls die Überschrift enthält. Dieses Format soll beim Kopieren auch beibehalten werden, so daß in Zeile 7 auch wieder die Überschrit steht und in Zeile 8 die Sortierung beginnen soll.
Wie kann ich das alles in einen Makro fassen ohne daß diese Messagebox des Fehlerhinweises erscheint? Wie lautet die Programmierung für "die erste Zeile ist die Überschrift, du Computer sollst erst ab der Zeile nach der Überschrift sortieren"?
Falls es etwas hilft, hier mein Makro:
'Löschen der Inhalte in der Zusatz-Strategie-Tabelle
Windows("Gesamt-APH.xls").Activate
Sheets("Zusatz-Strategie").Select
Cells.Select
Selection.ClearContents
' Markieren des Inhalt vom Muster
Sheets("Sortieren Strategie").Select
Range("A7:X600").Select
Selection.Name = "Strategie"
Range(Selection, Selection.End(xlDown)).Select
Selection.Name = "Strategie"
'Kopieren des Inhalts vom Muster
Selection.Copy
'Einfügen des Inhalts in Zustaz-Strategie-Tabelle
Sheets("Zusatz-Strategie").Select
Range("A7").Select
ActiveSheet.Paste
'Teilegebnisse berechnen
Application.CutCopyMode = False
Selection.Subtotal GroupBy:=22, Function:=xlSum, TotalList:=Array(1, 4, 17) _
, Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Es wäre schön, wenn sich nochmal jemand ein bisschen Zeit nehmen könnte.
Danke,
Stephanie