Sortieren mit Makro ohne Überschrift Excel 2003

[Babsi]

Excel 2003

Verehrtes Forum,

ich bekomm´s nicht hin. Das Sortieren ist natürlich an sich eine Banalität. Das bekannte Überschriftenhäkchen im Daten/Sortierenmenue kenne ich auch. Funktioniert auch alles.

Sobald ich aber das Sortieren im Makro laufen lasse (header = xlYes), landen die Spaltenüberschriften unter der Tabelle.

---------------------------------------
Sub AT_Sortieren()
'
' AT_Sortieren Makro
' Makro am 06.12.2016 von r r aufgezeichnet
'
    Range("H17").Select
    Range("A9: P423").Sort Key1:=Range("H17"), Order1:=xlAscending, Header:= _
        xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    ActiveWindow.SmallScroll Down:=402
    Range("A424").Select
End Sub
--------------------------------------------
Kann jemand helfen?
Babs

[Babsi]

Hallo Helfer!

Hat niemand eine Idee oder ist die Frage zu banal oder falsch gestellt?

Babs

[Winny]

Hi

probier mal

Code:

Key1:=Range("H9")

Ansonsten wäre dann eine Beispieldatei hilfreich

[Zwergel]

Hi
versuchs doch mal damit, deine Datei mit anonymisierten Daten drin hier hochzuladen. Keiner kann Hellsehen und wüßte z.B. was in H17 steht

[Babsi]

Danke für die Rückmeldungen.

Eigentlich handelt es sich hier um eine Standardsituation. Eine Tabelle soll nach einem Kriterium ( Spalte (H) ) sortiert werden.
Das abgebildete Makro habe ich mit dem Makrorekorder erstellt.
Hierzu bin ich wie folgt vorgegangen:

Irgendwo in die zu sortierende Spalte geklickt (H17) - Sortieren ausgewählt -Markierung erweitern - fertig.

Genau so, wie ich es ohne Makro auch machen würde und es auch funktioniert.

Nur bei der Anwendung des Makros, landen die Spaltenüberschriften unten und der Datensatz nicht einsortiert wird.

Babs

[Zwergel]

Was soll das Geschreibe. Lade Musterdatei hoch.

[WillWissen]

Hi Babsi,

ich würde das Makro nochmals neu aufzeichnen. Markiere (vor Druck auf Aufzeichnen) die gesamte Tabelle, stelle die Parameter im Sortiermenue ein, aktiviere die Aufzeichnung und starte das Sortieren. Jetzt müssten sich die Überschriften dort befinden, wo sie hingehören. Du kannst den Code ja hier posten - die Helfer werden ihn dir sicher verschlanken und verallgemeinern.

[schauan]

Hallöchen,

eventuell versuchen wir erst mal, dass vom Makrorekorder reichlich aufgezeichnete Material zu entflechten. Im Prinzip reicht

Code:

Sub test()
Range("A9: P423").Sort Key1:=Range("H17"), Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Probiers mal aus, läuft es damit?

[BoskoBiati]

Hallo,

mein Excel bietet mir bei Orientation nur XlsortRows und xlsortColumns an aber kein TopToBottom!

https://msdn.microsoft.com/de-de/library...21101.aspx

[Winny]

Hi

xlTopToBottom als auch xlSortColumns haben beide den Wert 1, deshalb funktioniert das, ist aber natürlich nicht 'richtig'. Bei mir sortiert der Code wie er soll, auch im Original. Hier hilft nur eine Beispieldatei