Datensätze blockweise sortieren

Chris · 2016-11-17T12:44:40+00:00

Hallo zusammen, ich habe schon in einem anderen Forum mein Problem erläutert, jedoch keine passende Lösung erhalten. Deswegen versuche ich es hier. Ich habe eine Tabelle mit 4 Spalten, die Datensätze sollen alphabetisch nach Spalte 4 sortiert werden. Manche Datensätze besitzen eine Zeile, andere sind mehrzeilig. Diese Zuordnung sollte nach dem Sortieren nicht verloren gehen. In der Beispielmappe müssten also die Datensätze von Zeile 2-5, 7-9 und 12-15 zusammenhängend sortiert werden. In Spalte A, B, C lasse ich die Werte jeweils in Schriftfarbe weiß weiterschreiben, bis ein neuer Datensatz beginnt (zwecks späterem Filtern der Dateien). Ich bin um jeden Lösungsansatz dankbar. Grüße Christoph Beispieldatei: https://www.herber.de/bbs/user/109506.xlsx

Hi,
ein Versuch mit Hilfsspalte sieht auch relativ gut aus, in E2 die Formel:

=WENN(ODER(A2A1;C2C1);D2&TEXT(ZEILE();"0000");LINKS(E1;LÄNGE(E1)-4)&TEXT(ZEILE();"0000"))

Diese Sortierung läßt die Blöcke zusammen.
Allerdings wird eben nur nach dem Kriterium in der jeweils 1. Zeile sortiert, d.h. bei Austria:
... zz
... ff
bleibt vor
... zz
... aa
stehen, weil ff/aa in der 2. Zeile nicht berücksichtigt wird.
Man könnte die Formel natürlich entsprechend erweitern, aber was ist, wenn der Unterschied erst in der 3. Zeile auftaucht? Eigentlich müßte man dann - longum est.
Für die 2. Zeile reicht eigentlich:

=WENN(ODER(A2A1;C2C1);D2&D3&TEXT(ZEILE();"0000");
LINKS(E1;LÄNGE(E1)-4)&TEXT(ZEILE();"0000"))

Schöne Grüße,
Michael

Hallo nochmal
Also umfärben?
hier ein Makro, das sortiert und dann die oberen Werte schwarz
und den Rest wieder "unsichtbar" setzt

Sub Sortieren()
    Dim Z
    With ActiveSheet
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=.Range("A:A"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=.Range("D:D"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SetRange .Range("A:D")
        .Sort.Header = xlYes
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
        .Sort.Apply
        .Columns("A:C").CurrentRegion.Font.ColorIndex = xlAutomatic
        For Each Z In .Columns("A:A").SpecialCells(xlCellTypeConstants, 3)
            If WorksheetFunction.CountIf(.Range("A1:A" & Z.Row), Z) > 1 Then
                Z.EntireRow.Columns("A:C").Font.ThemeColor = xlThemeColorDark1
            End If
        Next
    End With
End Sub

LG UweD

A	B	C	D
Land	Stadt	PLZ	Name
Austria	Wien	1010	Müller
			Schmidt
			Meier
Germany	Berlin	10115	Schmidt
			Müller

Forumthread: Datensätze blockweise sortieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial