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