Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle sortieren mehrere Kriterien

Tabelle sortieren mehrere Kriterien
13.08.2021 00:11:55
Andreas
Hallo,
wie kann ich beim Verlassen eines Userforms eine Tabelle nach folgenden Kriterien sortieren?
Name Blatt Tabelle1
In Zeile 4 befindet sich die Überschrift, die Datenzeilen beginnen ab Zeile 5. Folgender Aufbau Spalte 4: Datum; Spalte 5 eine Tageszeit als Name (Morgens, Mittags, Abends); Spalte 3 Zahlen zwischen 1-10.
Er soll nun per VBA zuerst alle zusammenhängenden Datenzeilen nach dem Datum in Spalte 4 sortieren (01.01.2021, 02.01.2021, usw) danach nach der Spalte 5 nach Tageszeit. Erst Morgens, dann Mittags, dann abends - und zuletzt nach Spalte 3 die Zahlenwerte von 1-10 aufsteigend.
Ist das irgendwie realisierbar?

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle sortieren mehrere Kriterien
13.08.2021 08:56:47
Werner
Hallo,
sortier nach deinen Wünschen "von Hand" und zeichne das mit dem Makrorekorder auf.
Gruß Werner
AW: Tabelle sortieren mehrere Kriterien
13.08.2021 21:57:49
Andreas
Dies kam dabei raus.
Sieht mir aber irgendwie sehr durcheinander aus. Kann man das auch so gestalten, dass er das ganze macht, wenn man die Tabelle gar nicht sieht - diese also ausgeblendet ist?

Sub Makro1()
' Makro1 Makro
ActiveWorkbook.Worksheets("Tagesnachweise").ListObjects("Tabelle2").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Tagesnachweise").ListObjects("Tabelle2").Sort. _
SortFields.Add2 Key:=Range("Tabelle2[Datum]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Tagesnachweise").ListObjects("Tabelle2").Sort. _
SortFields.Add2 Key:=Range("Tabelle2[Schicht]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, CustomOrder:= _
"Frühdienst,Spätdienst,Nachtdienst,Zusatzdienst 1,Zusatzdienst 2", DataOption _
:=xlSortNormal
ActiveWorkbook.Worksheets("Tagesnachweise").ListObjects("Tabelle2").Sort. _
SortFields.Add2 Key:=Range("Tabelle2[Nr]"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Tagesnachweise").ListObjects("Tabelle2").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Anzeige
AW: Tabelle sortieren mehrere Kriterien
13.08.2021 23:19:51
Werner
Hallo,
eingekürzt.

Sub Makro1()
With Worksheets("Tagesnachweise").ListObjects("Tabelle2").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("Tabelle2[Datum]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("Tabelle2[Schicht]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, CustomOrder:="Frühdienst,Spätdienst,Nachtdienst," _
& "Zusatzdienst 1,Zusatzdienst 2", DataOption:=xlSortNormal
.SortFields.Add Key:=Range("Tabelle2[Nr]"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortTextAsNumbers
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
End Sub
Und wer sagt, dass die Tabelle eingeblendet sein muss?
Gruß Werner
Anzeige
AW: Tabelle sortieren mehrere Kriterien
13.08.2021 23:23:36
Yal
Hallo Andreas,
würde es so besser aussehen?

Sub Makro1()
Const CustOrd = "Frühdienst,Spätdienst,Nachtdienst,Zusatzdienst 1,Zusatzdienst 2"
With ActiveWorkbook.Worksheets("Tagesnachweise").ListObjects("Tabelle2").Sort
.SortFields.Clear
.SortFields.Add2 Key:=Range("Tabelle2[Datum]"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add2 Key:=Range("Tabelle2[Schicht]"), _
SortOn:=xlSortOnValues, Order:=xlAscending, _
CustomOrder:=CustOrd, DataOption:=xlSortNormal
.SortFields.Add2 Key:=Range("Tabelle2[Nr]"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Es ist genau denselben Code, nur von Wiederholung bereinigt und sauber indentiert.
CustomOrder-String ist als Konstant ausserhalb, anstatt in der Mitte versteckt.
Das Coding kann natürlich auch auf eine versteckten Blatt wirken.
VG
Yal
Anzeige
AW: Tabelle sortieren mehrere Kriterien
13.08.2021 23:37:21
Andreas
Super ihr beiden - vielen Dank, ja, so sieht das schon ordentlicher aus :)
Gerne u. Danke für die Rückmeldung. o.w.T.
14.08.2021 08:45:02
Werner
AW: Tabelle sortieren mehrere Kriterien
14.08.2021 12:15:38
Andreas
Super ihr beiden - vielen Dank, ja, so sieht das schon ordentlicher aus :)

301 Forumthreads zu ähnlichen Themen

Summewenn mit 3 Kriterien
Tobias

Guten Tag,
ich finde die summewenn-funktion sehr gut, stoße jetzt leider an die Grenzen.
Ich habe folgendes Problem:
Das Datentabellenblatt sieht wie folgt aus:
Spalte 1 Spalte 2 Spalte 3 Spalte 4
* AAA 111...
15.10.2008 17:42:51
Thread-ID: 1016633
2 Beiträge
Anzeige
NAch Jahrgängen sortieren
Baywatch

HI Ecxelexperten,
habe eine kleine Frage, ich habe bis jetzt ein Proramm gehabt, indem Teilnehmer nach ihrem ALter sortert wurden, jetzt muß ich das aber umschreiben, da unser VErein nun nach Jahrgängen sortieren möchte, weiß jemand wie cih die existierende Formel umschreiben muß?
=WENN...
11.11.2008 12:53:00
Thread-ID: 1023520
3 Beiträge
Summe mit 3 Suchkriterien
Joachim

Hallo,
ich hab ne Tabelle, in der zeilenweise Teilrechnungsbeträge stehen. Die Kunden-, Vertrags- und Objekt-Nummer sind in den Spalten C-E, die Kosten ab Spalte S. Die Teilrechnungen bestehen manchmal aus 2 oder 3 Zeilen, manchmal gibt es aber nur eine (sie stehen untereinander).
Ich...
17.12.2008 12:11:00
Thread-ID: 1033570
3 Beiträge
Anzeige
Suchen mit 3 Kriterien
Schmidt

Hallo zusammen
Ich habe eine Tabelle , in der ich mit 3 Suchkriterien einen Wert errechnen möchte.
Mit Sverweis und der WENN-Funktion konnte ich das Problem nicht lösen. Könnte mir bitte jemand hilfreich zur Seite stehen.
https://www.herber.de/bbs/user/58658.xls
21.01.2009 14:41:00
Thread-ID: 1042200
7 Beiträge
spezieller sverweis mit 3 Suchkriterien.
Andi

Hallo zusammen
ich suche eine speziellen Sverweis mit 3 Suchkriterien. Er soll zwei Spalten nach den exakten werten durchsuchen. und die 3te nach dem exakten, falls vorhanden, falls nicht vorhanden, dann nach dem nächst kleineren.
Genaueres habe ich hier beschrieben: https://www.herber....
11.05.2009 09:50:39
Thread-ID: 1074268
7 Beiträge
Daten nach Überprüfung von 2 Kriterien ausgebeb
2

Hallo Excelprofis,
ich habe ein Problem mit dem ich mich schon seit zwei Tagen quäle.
Ich habe eine Liste mit 8 Spalten. Meine Liste startet in der Zeile 11.
A10=Datum
B10=Uhrzeit
C10=Ort
D10=Kürzel (Ziffern)
E10= Name (hier steht kein Name, sondern Zahlen von 1-10,...
05.06.2009 12:31:14
Thread-ID: 1079429
8 Beiträge
Summe aus einer Tabelle mit mehreren Kriterien
Erik

Hallo zusammen,
momentan verzweifel ich an einem Problem in Excel.
Die Tabelle hat das folgende Format
Europe: 1 = Ja und 0 = nein
Europe Type Size Price
1 x S 19
1 y L 145
0 x S 291<...
10.06.2009 13:50:10
Thread-ID: 1080478
4 Beiträge
Daten nach Kriterien in Spalten umsortieren
hans

Hallo zusammen.
habe mir bereits einige Stunden den Kopf zerbrochen, ohne jedoch weitergekommen zu sein. Mein Problem ist folgendes:
Ich habe eine Tabelle (kleiner Auszug siehe unten), die Daten enthält, die jeweils entweder mit den Buchstaben A, B oder C enden. Ich möchte nun diese Dat...
14.06.2009 02:13:12
Thread-ID: 1081347
6 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
2
2
3
6
6
7
3
5
2
3
4
10
1
4
6
10
3
2
2
2
2
2
1