Thema Datum  Von Nutzer Rating
Antwort
Rot Sortieren mit 2 Kriterien
 09.12.2016 23:00:05 swizzmade
NotSolved
10.12.2016 07:19:41 Crazy Tom
NotSolved
10.12.2016 09:36:31 Onur
NotSolved
10.12.2016 09:45:26 Gast94085
NotSolved

Ansicht des Beitrags:
Von:
swizzmade		 Datum:
09.12.2016 23:00:05		 Views:
1735		 Rating:
     
Antwort:
  Ja
Thema:
Sortieren mit 2 Kriterien

Hallo Zusammen, 

könnte mir jemand Helfen bei der Sortierung mit 2 Kriterien?
 

?
1
Mein Bisheriger Code:
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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)
?
1
2
3
4
5
6
7
8
9
        .Header = xlYes
        .MatchCase = false
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Unload Me
 
End Sub

 

Besten Dank für eure Hilfe

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Sortieren mit 2 Kriterien
 09.12.2016 23:00:05 swizzmade
NotSolved
10.12.2016 07:19:41 Crazy Tom
NotSolved
10.12.2016 09:36:31 Onur
NotSolved
10.12.2016 09:45:26 Gast94085
NotSolved