Office: (Office 2013) Zeilen sortieren, Leerzeilen behalten

HAllo zusammen,

ich steh vor dem Problem, dass ich auf eine Tabellenblatt jeweils die Zeilen innerhalb eines Datensatzes nach Spalte K sorti
eren möchte. Ein Datensatz besteht bei uns immer aus einer oder mehrere Zeilen, einzelne Datensätze sind jeweils durch Leerzeilen getrennt, das sieht dann ungefähr so aus:




Gibt es eine Möglichkeit, innerhalb der einzelnen Datensätze zur sortieren? (Manuell könnte ich das machen, indem ich jeweils einen Datensatz [aus ein oder mehrere Zeilen] markiere und dann benutzerdefiniert sortiere, aber das wird bei sehr vielen Datensätzen doch sehr aufwändig..)

Danke und Grüße

:)

 

Code:

Nach 1: A, 2: C sortieren

 

Hallo Hellfish,

ich würde es mit einer Zusatzspalte (L wenn frei) realisieren. In diese würde ich ab L2, wenn Zeile 1 die Überschriften enthält,

=wenn(istleer(k2);K1&"-"&Zeile();K2&"-"&Zeile()) eintragen und dann nach L anstatt nach K sortieren.

VG, WS-53

 

Danke an beide. Ich hatte eigentlich gedacht, das irgendwie in VBA zu gießen (weil das immer wieder gemacht werden muss und vor allen Dingen auch andere damit arbeiten können sollen).

Habt Ihr dafür vielleicht auch eine gute Lösung parat?

Thx und Grüße

 

Hallo,

Es wäre hilfreich, wenn du dafür eine Beispiel-Datei zur Verfügung stellen würdest.

Gruß
Aloys

 

Code:

Den o.g. Code in das Modul des Arbeitsblatts kopieren.
Die Sätze müssen komplett durch Leerzeilen getrennt sein - auch zwischen Feldbezeichnern und dem ersten Block. Also auch keine Sortierspalte mehr!
Dann wird immer direkt bei Änderung oder Neueingabe nur der Block sortiert.

Möglicher VBA-Bug: Steht man bei xl2010 in der letzten Zeile eines Blocks, weitet sich im Makro die "CurrentRegion" um eine Zeile nach unten aus, obwohl sie leer ist. Damit trifft sie gleich auf den nächsten Block, der dann ungewollt mitsortiert wird. - Bei händischem Sortieren mittels XL-Sortiersymbol geschieht alles ordentlich.

Vermutliche Abhilfe (kurz getestet, klappt auch in erster Zeile eines Blocks) mit Einfügung von Offset:
.SetRange ActiveCell.Offset(-1, 0).CurrentRegion (oben schon berücksichtigt)

 

Hallo hellfish,

ist eigentlich gar nicht so schwer. Hilfsspalte einfügen und füllen, nach dieser sortieren und anschliessend wieder löschen, musst du mehr oder weniger nur mit dem Makrorekorder aufzeichnen und anschliessend halt noch ein wenig nachbearbeiten.

Bei der Beispielmappe die ich hochlade, können jeweils beliebig viele Leerzeilen enthalten sein.

Die durchnummerierung in Spalte A verwende ich natürlich nicht für die Sortierung nach K. Diese ist nur dazu da, damit du schnell hin und her sortieren kannst.

VG, WS-53

 

Hallo hellfish,

Und willst du tatsächlich nur einen Block (mehrere Daensätze mit Leerzeile davor und dahinter) sortieren, dann ist es noch viel einfacher, da Excel automatisch den Sortierbereich erkennt.

In diesem Fall musst du nur den Cursor in eine Zelle des Blocks setzen, den du sortieren willst und die Sortiertaste drücken. Idealerweise hast du dir die Sortiertaste in die Symbolleiste für den Schnellzugriff eingestellt (Siehe Grafik), damit dir diese immer zur Verfügung steht.

VG, WS-53

 

Hier ist nochmal eine Beispieldatei, wo die Frage vielleicht etwas deutlicher wird:

Wie zu sehen ist, soll immer innerhalb eines Blockes nach einer Spalte sortiert werden (in der Datei Spalte F). Einzelne Blöcke sind durch komplette leere Zeilen getrennt.

 

Du hattest verbotenerweise LEERSPALTEN mit drin! Die habe ich unterbrochen.

Die verbundenen Zellen in G schaden dem Sortieren zwar nicht, aber wird die erste Zeile eines Blocks woanders hin sortiert, siehst Du den Inhalt der verbundenen Zelle nicht mehr.

Ändere nun in F irgendeinen Eintrag, und der Block zwischen den LEERZEILEN wird automatisch über mein Makro (s.o.) sortiert.

Das Ganze kann man bei Bedarf auch manuell und für alle Blöcke nacheinander haben. Habe ich jetzt nicht gemacht.

 

Hi lupo,

vielen Dank, das ist fast genau das, was ich brauche. Allerdings werden die Daten der Arbeitsblätter reinkopiert, überarbeitet und sozusagen als letzter Schritt sollte nochmal die Sortierung "drüberlaufen". Hast Du dafür vielleicht noch einen guten Tipp oder Codeschnipsel parat?

Thx und Grüße

 

Dafür kannst Du meinen allerersten Beitrag nehmen. Habe gerade keine Lust zu xlEnd.xlDown 1x oder 2x, je nachdem, ob CurrentRegion.Rows = 1 oder nicht ... *wink.gif*

 

Super, thx