Sortieren mit Makro

Ich habe in Excel eine Maske erstellt, die die eingegebenen Daten durch ein Makro in eine Tabelle überträgt. Da auch das Datum mit übertragen wird, will ich das die Tabelle chronologisch sortiert wird. Also das aktuellste Datum ganz oben. Ich habe das schon über Makroaufzeichnen versucht, aber wenn ich das dann einem Button zuweise klappt es nicht. Mein Makro sieht wie folgt aus:
Range("A9:A13").Select
Range("A9:F13").Sort Key1:=Range("A9"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Kann mir jemand sagen was ich falsch gemacht habe.
Danke!

Tommizzo

 

Zur Zeit sortierst Du nur 4 oder 5 Zeilen (A9:F13). Ist das korrekt?

Gruss
Bruno

 

Nein, es sollen mehrere hundert sortiert werden, da es sich um eine kontinuierliche Eingabe handelt.

Gruß
Tommizzo

 

Dann musst Du "A9:F13" ändern. Wenn Du danach keine Zeilen mehr hast, kannst Du einfach "A9:F65536" nehmen.

Übrigens kannst Du die erste Zeile löschen.

Gruss
Bruno

 

Es klappt noch nicht ganz. Mir wird immer angezeigt, dass für diese Aktion alle verbundenen Zellen die gleiche Größe haben müssen. Soll ich nun jede Zelle auf die gleiche Größe bringen?

Gruss
Tommizzo

 

Hast Du verbundene Zellen?

Gruss
Bruno

 

nein, die Zellen sind nicht vebunden. Nur unterschiedlich breit mehr nicht.

Gruss
Tommizzo

 

Ist der Code denn jetzt richtig geschrieben? Er müsste so aussehen >

Range("A9:F65536").Select
Selection.Sort Key1:=Range("A9"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Wobei auch hier ein Name für den zu sortierenden Bereich spätere Aenderungen erleichtert. Range-Zeile dann einfach durch die GoTo-Zeile ersetzen, wie gehabt. Der NamensBereich würde sich dann bei zusätzlichen Daten von selbst erweitern...

Sind die Zellen A9:A65536 alle gleich formatiert?

Gruss Urs

 

Leider klappt es auch mit dem Code nicht. Die Zellen sind bei mir unterschielich breit und sind teilweise als Text, Datum oder EUR Format deklariert. Stört das dabei?

Gruß
Tommizzo

 

Es geht nur um die Spalte A, also die Sortierspalte. Hier muss die Formatierung überall gleich sein, es können ja nicht Datum, Text, oder sonst was miteinander verglichen werden. Bei den ewig langen Spalten können schon irgendwo fremde Formate drin sein.

Klicke auf die Spaltenbezeichnung "A", dann ist alles ausgewählt > jetzt Format als Datum. Bei den anderen Spalten sinngemäss.

Sonst halt die Tabelle als benannten Bereich bezeichnen. Der Sortierbefehl wäre dann >

Application.Goto Reference:="NameDesBenanntenBereichs"
Selection.Sort Key1:=Range("A9"), Order1:=xlAscending...usw.....

Gruss Urs

 

Hi Tommi,

die genannte Fehlermeldung kommt ausschließlich dann, wenn sich im Sortierbereich verbundene Zellen befinden. Du schreibst die Zellen sind "unterschiedlich breit" - meinst du damit vielleicht die Höhe der Zellen? In diesem Fall sind die Zellen nicht spalten- sondern zeilenweise verbunden und das führt genau zu dem selben Fehler.

Die Formatierung spielt keine Rolle, wenn sie sich auf unterschiedliche Spalten bezieht. Sind innerhalb einer Spalte unterschiedliche Formatierungen vorhanden, so hat das nur einen Einfluss auf die Sortierreihenfolge, da Zahlen anders als Text sortiert werden. Damit wird jedoch kein Fehler ausgelöst.

 

Hi Karin!

Die 1 und 3 Zeile sind höher als die restlichen. Normal haben alle eine Zeilenhöhe von 12,75 bis auf die beiden halt. Aber ich will doch erst ab Zeile 9 sortieren. Sind Zeile 1 und 3 das Problem?

Gruß
Tommizzo

 

Hi Tommi,

die Zeilenhöhe an sich beeinflusst das Ganze nicht, wenn es die gesamte Zeile betrifft.

Lade deine Arbeitsmappe doch mal hoch, vielleicht kann man es dann besser nachvollziehen.