Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bereich variabler Länge sortieren

Bereich variabler Länge sortieren
19.10.2007 08:33:00
Thomas
Hallo!
Ich will in meinem Makro einen Bereich in einer Tabelle sortieren lassen. Der Bereich beginnt bei A6 geht 6 Spalten nach links und dann nach unten bis zu letzten ausgefüllten Zeile. Das mit dem Recorder aufgezeichnete Makro markiert aber immer nur einen Bereich fester Länge, die Zeilenänderung bekommt es nicht mit. Wie schaff ich nun, dass die neue Länge berücksichtigt wird.
mfg
Thomas
Hier ist der Sortierteil:
Range("A6").Select
Range("A6:E16").Sort Key1:=Range("A6"), Order1:=xlDescending, Key2:=Range _
("D6"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich variabler Länge sortieren
19.10.2007 08:40:03
Ptonka
Hallo Thomas,
zunächst die letzte gefüllte Zeile ermitteln. Hier sollte die Spalte ausgewählt werden, in der in jedem Fall immer ein Datensatz enthalten ist. Die letzte gefüllte Zeile wird dann in die Variable Anzahl geschrieben. Diese kannst Du dann in die Sortierung für den Bereich einsetzen.
Nehmen wir an, es ist Deinem Fall Spalte A, dann:
Range("A6").Select
Anzahl = [A65536].End(xlUp).Row
Range(cells(6,1),cells(Anzahl,5)).Sort Key1:=Range("A6"), Order1:=xlDescending, Key2:=Range _
("D6"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Gruß,
Jochen

Anzeige
AW: Bereich variabler Länge sortieren
19.10.2007 08:50:18
Hajo_Zi
Hallo Thomas,
in VBA kann zu 99,9% auf select usw. verzichtet werden.
Falls der Bereich kein Leerzeilen und Leerspalten enthält und die Tabelle mit einer Leerspalte und Leeerzeil abgeschlossen ist, brauch nur die Zelle oben links angegeben werden.

AW: Bereich variabler Länge sortieren
19.10.2007 09:27:00
Thomas
Hallo Hajo,
Funktioniert prima und ohne große Mühe. Auch der Tipp ist sehr praktisch. Danke
mfg
Thomas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige