|
Hallo Zusammen,
könnte mir jemand Helfen bei der Sortierung mit 2 Kriterien?
Mein Bisheriger Code:
Private Sub cb_sort_Click()
If cbEdit Then
lRow = Val(cbEdit.Caption)
Else
lRow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
End If
Range("A2:P" & lRow).Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("A2"), Order:=xlAscending, _
SortOn:=xlSortOnValues, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:P" & lRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Unload Me
End Sub
Der Sortiert auch alles so wie es sein Soll. Jedoch würde ich gerne noch zusätzlich in 2 Prio die Spalte D im A-Z verfahren Sortieren lassen.
Ich hab mal was gebasstelt, jedoch will es nicht funktionieren. Das ganze hab ich via Makro aufgeziechnet.
Mein Code:
Private Sub cb_sort_Click()
If cbEdit Then
lRow = Val(cbEdit.Caption)
Else
lRow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
End If
Range("A2:P" & lRow).Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key1:=Range("A2"), Order1:=xlAscending, _
SortOn:=xlSortOnValues, DataOption1:=xlSortNormal Key2:"Range("D2"), Order2:=xlAscending, _
DataOption1:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:P" & lRow)
.Header = xlYes
.MatchCase = false
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Unload Me
End Sub
Besten Dank für eure Hilfe
|