Office: (Office 2010) VBA Sortieren für Dummies :)

Hallo liebes Forum,

ich arbeite gerade an einer Excel Tabelle die ich via Makro immer wieder aktualisieren kann. Die entsprechende Tabelle (auch mit leeren spalten zwischendrin) geht von A9:EP68.

Wenn ich die Tabelle aktualisiere ändert sich die Rang Zahl (die steht in der spalte A von A9:A68.

Bsp.
Bundesligatabelle vor Aktualisierung
1 Bayern
2 Dortmund

Nach Aktualisierung
2 Bayern
1 Dortmund

Ich möchte die ganze Tabelle im Bereich A9:EP68 zeilenweise aufsteigend sortieren (so das der erste wirklich an der ersten stelle steht *biggrin.gif*). Ich muss offen und ehrlich zugeben das ich überhaupt keine Ahnung vom sortieren via VBA habe. Ich hab mir da ein Code zusammen geschnipselt, und so wie es bei Ahnungslosen Schnipseleien ist funktioniert das natürlich nicht *biggrin.gif*.

Entsprechende Code wäre:



Worksheets("Tabelle1").Range("A9:EP68").Sort key1:=Columns("A9"), _
order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=True, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal



Wenn mir vielleicht jemand mal den Prinzip vom Zeilenweise sortieren über VBA erklären könnte und sagen könnte was ich falsch mache wäre das total hilfreich. Danke in Voraus.

:)

 

Hallo,

Code:

Worksheets("Tabelle1") fehlt mindestens, strenggenommen brauchst Du noch die Mappe vorangestellt, um den Bezug eindeutig zu machen (und wenn nicht die aktive Mappe die gewollte ist). Anstelle Columns nimmst Du Range().

Grüße
EarlFred

 

Optimal *Smilie... Danke schön *top *biggrin.gif* Eine Frage noch:

Welcher Teil der Anweisung ist den für die Art der Sortierung zuständig? Also angenommen ich will später die Tabelle nicht mehr aufsteigend sondern absteigend sortieren? Z.B absteigend erst nach Spalte A dann wenn diese Kriterium erfüllt ist nach Spalte B usw.? Geht das überhaupt?

 

Hallo,

Englisch hilft: Anstelle
xlAscending
nimmst Du
xlDescending

bei Deiner Schreibweise fügst Du einfach zusätzliche Angaben für die "Keys" und "Orders" an:
Code:

Diese Schreibweise ist beschränkt auf 3 Sortierebenen. Brauchst Du mehr (nach Excel 2003), zeichne mit dem Makrorekorder auf.

Grüße
EarlFred

 

Bester man *biggrin.gif*... vielen vielen vielen Dank *Smilie