benutzerdefiniertes sortieren
11.08.2016 17:11:01
Knilch
Ich habe eine Spalte A mit verschiedenen Projektnummern. Z.B. A1234, D1234, D5678, A9876, A5831 (Ab A3). Hinter den Projektnummern steht in einer neuen Spalte ein Betrag x (Ab E3).
Jetzt hätte ich gern, dass alle Projekte mit dem Anfangsbuchstaben A untereinander stehen, dannach D usw. Die einzelnen Projekt Kategorien, z.B. A-Projekte sollen nun nach der Betraggröße sortiert werden. Größter Betrag oben.
So z.B.
A1234 100
A5831 200
A9876 300
D1234 200
D5678 600
Ich hoffe es ist verständlich?!
Den Code habe ich im Netz gefunden:
Sub Sortiermix()
'von Uwe Küstner
Dim lngCLC As Long
Dim lngListExist As Long
Dim lngOC As Long
Dim vListArr As Variant
vListArr = Array("USA", "D", "GB")
lngListExist = Application.GetCustomListNum(vListArr)
If lngListExist > 0 Then
lngOC = lngListExist + 1
Else
Application.AddCustomList listArray:=vListArr
lngCLC = Application.CustomListCount
lngOC = lngCLC + 1
End If
'erste sortierung "normal" und untergeordnet
Range("B2").Sort Key1:=Range("D3"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'zweite Sortierung benutzerdefiniert übergeordnet
Range("B2").Sort Key1:=Range("B3"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=lngOC, _
MatchCase:=False, Orientation:=xlTopToBottom
If lngListExist = 0 Then Application.DeleteCustomList ListNum:=lngCLC
End Sub
Würde mich freuen, wenn ihr mir weiter helfen könntet!
besten Dank!!!