Automatische Sortierung nach Vorgabe
20.08.2018 08:34:08
Eisert
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