Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Automatische Sortierung nach Vorgabe

Automatische Sortierung nach Vorgabe
20.08.2018 08:34:08
Eisert
Hallo,
kann mir vielleicht jemand helfen, ich versuche eine Tabelle nach gewissen Zahlen zu ordnen. So klappt das ja ganz gut, das Problem ist das sich die Werte immer wieder ändern. Die Werte stehen in Tabelle2.Range("A2:A10"). Wie bekomme ich die Werte in CustomOrder? Vielen Dank schon mal im Vorraus.
Private Sub CommandButton1_Click()
Range("A8:Q508").Select
Sort.SortFields.Clear
Sort.SortFields.Add2 Key:=Range( _
"H9:H508"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"500574835,500584832,500185753,500182397,500489865,500489866,505031070,500581597, _
500581595" _
, DataOption:=xlSortNormal
With Sort
.SetRange Range("A8:Q508")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Automatische Sortierung nach Vorgabe
20.08.2018 08:51:16
EtoPHG
Hallo,
Probier es mal so.
Private Sub CommandButton1_Click()
With Range("A8:Q508").Sort
.SortFields.Clear
.SortFields.Add2 Key:=Range("H9:H508"), SortOn:=xlSortOnValues, Order:=xlAscending, _
CustomOrder:=Tabelle1.Range("A2:A10"), DataOption:=xlSortNormal
.SetRange Range("A8:Q508")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Wenn es nicht funktioniert, bitte Beispielmappe hochladen!
Gruess Hansueli
Anzeige
AW: Automatische Sortierung nach Vorgabe
20.08.2018 09:16:15
Eisert
Hallo,
danke dir, geht aber leider nicht. So hab ich das auch schonmal ausprobiert. Kommt immer die Fehlermeldung "Typen unverträglich". Hier mal eine Datei zum Testen
https://www.herber.de/bbs/user/123424.xlsm
AW: Automatische Sortierung nach Vorgabe
20.08.2018 10:24:01
Robert
Hallo Eisert,
versuche die Zuordnung der Sortierreihenfolge (CustomOrder) mal so:
CustomOrder:=Join(Application.Transpose(Sheets("Tabelle2").Range("A2:A10")), ",") 
Gruß
Robert
Anzeige
AW: Automatische Sortierung nach Vorgabe
20.08.2018 15:07:38
Eisert
Danke Robert das funktioniert super...
Gerne und Danke für die Rückmeldung (owT)
20.08.2018 16:36:04
Robert
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige