Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
520to524
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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabelle über mehrere Spalten sortieren

Tabelle über mehrere Spalten sortieren
26.11.2004 12:27:05
Ingo
Guten Tag allerseits.
Ich mlchte gerne die Zelleninhatle einer Tabelle
über mehrere Spalten hinweg sortieren.
Hier ein Beispiel
Eine Tabelle mit 3 Spalten.
Spalte 1 hat 4 Zeilen mit den Werten 1,9,4,3
Spalte 2 hat 3 Zeilen mit den Werten 5,9,2
Spalte 3 hat 7 Zeilen mit den Werten 3,6,10,11,5,7,3
Nun möchte ich gerne, dass alle Zahlen in aufsteigender
Reihenfolge sortiert werden.
Dabei sollen aber alle 3 Spalten zusammen berücksichtigt werden.
Und auch die Anzahl der Zeilen der jeweiligen Spalten sollen bleiben.
Es soll dann also so aussehen:
Spalte 1 hat 4 Zeilen mit den Werten 1,2,3,3
Spalte 2 hat 3 Zeilen mit den Werten 3,4,5
Spalte 3 hat 7 Zeilen mit den Werten 5,6,7,9,9,10,11
Ist das mit Excel machbar ?
Oder geht das nur mit VBA ?
Über Eure Hilfe würde ich mich wirklich riesig freuen :)
Gruß
Ingo

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle über mehrere Spalten sortieren
26.11.2004 12:47:07
Harald
Hallo Ingo,
ohne vba
Werte einer Spalte markieren, Sortieren aufklicken, mit bestehender Markierung fortfahren
mit vba
per Rekorder aufzeichnen
Gruß
Harald
Das funktioniert noch nicht
26.11.2004 13:13:54
Ingo
Lieber Harald
Vielen lieben Dank erstmal für Deine schnelle Hilf.
Aber das will nicht recht funktionieren.
Wenn ich es so mache, wie Du vorschlägst,
werden ja doch wieder nur die einzelnen Spalten getrennt sortiert.
Schau doch nochmal mein Beispiel aus dem ersten Postinmg an.
Gruß
ingo
AW: Tabelle über mehrere Spalten sortieren
Uduuh
Hallo,
das geht nur per VBA oder viel Handarbeit.
Geht zwar auch eleganter, aber auf die Schnelle:

Sub sortieren()
Dim C1 As Integer, C2 As Integer, C3 As Integer
C1 = Cells(1, 1).End(xlDown).Row
C2 = Cells(1, 2).End(xlDown).Row
C3 = Cells(1, 3).End(xlDown).Row
If C1 + C2 + C3 > 65536 Then
MsgBox "zu viele Zeilen"
Exit Sub
End If
Range(Cells(1, 1), Cells(C1, 1)).Copy Cells(1, 10)
Range(Cells(1, 2), Cells(C2, 2)).Copy Cells(C1 + 1, 10)
Range(Cells(1, 3), Cells(C3, 3)).Copy Cells(C1 + C2 + 1, 10)
Cells(1, 10).Sort Key1:=Range("J1"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range(Cells(1, 10), Cells(C1, 10)).Copy Cells(1, 1)
Range(Cells(C1 + 1, 10), Cells(C1 + C2, 10)).Copy Cells(1, 2)
Range(Cells(C1 + C2 + 1, 10), Cells(C1 + C2 + C3, 10)).Copy Cells(1, 3)
Columns(10).ClearContents
End Sub

Gruß aus'm Pott
Udo

Anzeige
WUNDERBAR ... DANKE !!! ... o.T.
26.11.2004 14:38:44
Ingo
o.T.
Doch nochmal ne Frage dazu (sorry)
26.11.2004 17:25:21
Ingo
Lieber Udo
Lässt es sich auch so einrichten,
dass diese "spaltenübergreifende" Sortierung
nur in den markierten Spalten stattfindet ?
Gruß
Ingo
Ergänzung
27.11.2004 09:04:31
Ingo
Hallo nochmal
Die Lösung vom Udo funktioniert ja wunderbar (vielen Dank dafür).
Aber ich hatte in meinem ersten Posting eine
Sache leider vergessen.
Diese Sortierfunktion soll nur auf die Spalten angewendet
werden, die markiert sind.
Wobei immer nur direkt nebeneinander liegende Spalten markiert werden.
Und die Tabelle hat nicht immer nur 3 Spalten,
sondern manchnal auch wesentlich mehr.
Wenn das hier von mir beschriebene immer noch missverständlich ist,
lasst es mich bitte wissen.
Dann würde ich es nochmal anders formulieren.
Über weitere Hilfe freue ich mich immer nich riesig :)
Gruß
Ingo
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige