Daten Sortieren nach Kriterien

02.09.2025 12:29:05

Patrick

Liebes Forum

Ich habe eine Excel-Datei, welche mir Daten aus einer Datenbank liefert. Diese Daten sind dynamisch. Ebenso sind dabei Datumsangaben drin enthalten, welche ich für eine Planung benötige.

Was ich nun möchte ist, dass ich diese Daten in einer Übersicht zusammen fassen kann. Es können 10 bis 200 Einträge vorhanden sein.

In der Beispieldatei habe ich dazu ein Register gemacht, welches "Daten" heisst.
Diese Daten möchte ich gerne in das Register "Übersicht" nehmen.
Im Register "Übersicht" möchte ich nun aber die Daten sortiert haben. Dies soll automatisch geschehen, ohne dass ich diese Daten zuerst Sortieren muss und dann mittels Kopieren in das Register "Übersicht" einfügen muss.
Die Überschrift (In der Beispieldatei GRÜN dargestellt) muss nicht sein, kann aber, falls es möglich wäre.

Könnt ihr mir da helfen?

https://www.herber.de/bbs/user/178812.xlsx

AW: wenn Zwischenüberschriften nicht erfoderlich sind ...

02.09.2025 12:50:01

neopa C

Hallo Patrick,

... kann man es u.a. auch ohne Formel mit einer einfachen Power-Query (PQ)-Abfrage erzeugen.
Von Interesse?

Gruß Werner
.. , - ...
aus C the unseen

AW: Daten Sortieren nach Kriterien

02.09.2025 13:32:03

Alwin Weisangler

Hallo,

mal noch ein Weg auf die Schnelle via VBA in ein allgemeines Modul:



Option Explicit



Sub SotiertAusgeben()

    Dim arrTab(), arrlist(), i&, j&, k&

    arrTab = Application.Index(Tabelle2.UsedRange.Value, Evaluate("row(1:" & Tabelle2.UsedRange.Rows.Count & ")"), Array(1, 2, 5, 3, 4))

    ReDim arrlist(1 To UBound(arrTab, 1), 1 To UBound(arrTab, 2))

    For i = 3 To UBound(arrTab)

        If InStr(1, arrTab(i, 1), "Inkassoart", vbTextCompare) = 0 And arrTab(i, 1) > "" Then

            k = k + 1

            For j = 1 To UBound(arrTab, 2)

                arrlist(k, j) = arrTab(i, j)

            Next j

        End If

    Next i

    With Tabelle1

        .UsedRange.Offset(1).ClearContents

        .Cells(2, 1).Resize(k, UBound(arrlist, 2)) = arrlist

        Sortieren

    End With

End Sub



Private Sub Sortieren()

    Dim lz&: lz = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row

    With Tabelle1.Sort

        .SortFields.Clear

        .SortFields.Add2 Key:=Range("A1:A" & lz), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

        .SetRange Range("A2:E" & lz)

        .Header = xlNo

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub

Aufruf kann man u.A. per Button machen.

Gruß Uwe

AW: Daten Sortieren nach Kriterien

02.09.2025 15:01:04

UweD

Hallo

Ohne die Zwischenüberschriften

Arbeitsblatt mit dem Namen 'Übersicht (2)'
	A	B	C	D	E	F
1
2	Matchcode	Termin	Währung	Saldo	Inkassoart
3	Kunde I	19.08.2025	CHF	90
4	Kunde T	19.08.2025	CHF	90
5	Kunde C	01.09.2025	CHF	30
6	Kunde D	01.09.2025	CHF	40
7	Kunde N	01.09.2025	CHF	30
8	Kunde O	01.09.2025	CHF	40
9	Kunde E	14.09.2025	CHF	50
10	Kunde P	14.09.2025	CHF	50
11	Kunde J	25.09.2025	CHF	100
12	Kunde U	25.09.2025	CHF	100
13	Kunde F	04.10.2025	CHF	60
14	Kunde Q	04.10.2025	CHF	60
15	Kunde G	12.10.2025	CHF	70
16	Kunde R	12.10.2025	CHF	70
17	Kunde A	06.09.2025	EUR	10
18	Kunde L	06.09.2025	EUR	10
19	Kunde V	26.09.2025	EUR	110
20	Kunde B	06.10.2025	EUR	20
21	Kunde M	06.10.2025	EUR	20
22	Kunde H	24.10.2025	CHF	80	Vorauskasse
23	Kunde S	24.10.2025	CHF	80	Vorauskasse
24	Kunde K	26.09.2025	EUR	110	Vorauskasse

Zelle	Format	Wert
B3	TT.MM.JJJJ	19.08.2025
E3	;;	0

Zelle	Formel
A3	=VSTAPELN(SORTIEREN(SPALTENWAHL(FILTER(Daten!A2:E300;(Daten!A2:A300>"")(Daten!C2:C300=""));1;2;4;5;3);{5;3;2};{1;1;1}); SORTIEREN(SPALTENWAHL(FILTER(Daten!A2:E300;(Daten!A2:A300>"")(Daten!C2:C300>""));1;2;4;5;3);{5;3;2};{1;1;1}))

Die Formel erweitert sich selbst

LG UweD

AW: wenn Zwischenüberschriften nicht erfoderlich sind ...

02.09.2025 12:58:41

Patrick

Da ich mich mit Power Query zu wenig auskenne, müsste ich dies einmal sehen können.
generell gesagt, könnte dies funktionieren ja.

AW: dann ...

02.09.2025 13:07:59

neopa C

Hallo Patrick,

... sieh mal hier: https://www.herber.de/bbs/user/178813.xlsx

Wenn Du in Blatt Daten änderst und oder ergänzt, muß lediglich der Aktualisierungsbutton (alternativ auch nur eine Tastenkombination) betätigt werde,
Mehr zu Power Query (PQ) sieh z.B. mal hier: https://excelhero.de/power-query/power-query-ganz-einfach-erklaert/

Gruß Werner
.. , - ...
aus C the unseen

Daten Sortieren nach Kriterien

Forumthread: Daten Sortieren nach Kriterien

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Daten Sortieren nach Kriterien

Forumthread: Daten Sortieren nach Kriterien

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread