Spalten sortieren
Viktoria
habe ein VBA Problem. Und zwar habe ich eine Tabelle mit den die eine Spaltenanzahl von A - AD besitzt. Nun habe ich als erstes Spalte N - Absteigend sortieren lassen, danach dann die Spalte B - Absteigend sortieren lassen und Spalte C wird benutzerdefiniert sortiert.
Leider sortiert mir mein Makro nicht richtig. Es wird nur die jeweilige Spalte sortiert, jedoch bleiben die Spalten außer B, N und C unverändert.
Hat jemand einen Tipp`?
ub benutzerdefiniert_sortieren_mit_einer_Liste()
Sortieren
Dim lngCLC As Long
Dim lngListExist As Long
Dim lngOC As Long
Dim vListArr As Variant
vListArr = Array("D", "A", "F", "C")
lngListExist = Application.GetCustomListNum(vListArr)
If lngListExist > 0 Then
lngOC = lngListExist + 1
Else
Application.AddCustomList listArray:=vListArr
lngCLC = Application.CustomListCount
lngOC = lngCLC + 1
End If
Range("C58").Sort Key1:=Range("C59"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=lngOC, _
MatchCase:=False, Orientation:=xlTopToBottom
If lngListExist = 0 Then Application.DeleteCustomList ListNum:=lngCLC
End Sub
Sub Sortieren()
Dim lastRow As Long
'Letzte Zeile bestimmen
lastRowN = Range("N" & Rows.Count).End(xlUp).Row
lastRowB = Range("B" & Rows.Count).End(xlUp).Row
With Worksheets("ZEUS Themen SFTP MB")
.Range("N59:N" & lastRowN).Sort Key1:=.Range("N59"), _
Order1:=xlDescending, Header:=xlGuess
.Range("B59:B" & lastRowB).Sort Key1:=.Range("B59"), _
Order1:=xlDescending, Header:=xlGuess
End With
End Sub
Vielen Dank euch schonmal.
Liebe Grüße
Anzeige