Thema Datum  Von Nutzer Rating
Antwort
28.06.2017 11:34:52 BUBU
NotSolved
Blau Sortierfilter in VBA
 28.06.2017 17:50:51 Ben
*****
Solved

Ansicht des Beitrags:
Von:
Ben		 Datum:
28.06.2017 17:50:51		 Views:
522		 Rating:
     
Antwort:
 Nein
Thema:
Sortierfilter in VBA

Hallo,

angenomen, die Daten sind im Bereich A1 bis B8 inklusive Überschriften.

In diesem Fall sortiert folgender Befehl die Daten zuerst nach Standort (Spalte A) und anschließend nach Namen (Spalte B) aufsteigend:

Sub SortData()
    Dim wsh As Worksheet
    Set wsh = ActiveSheet
    With wsh
        With .Sort
            With .SortFields
                .Clear
                .Add Key:=wsh.Range("A2:A8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                .Add Key:=wsh.Range("B2:B8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            End With
            .SetRange Rng:=Range("A1:B8")
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

LG, Ben

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:



  • 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
28.06.2017 11:34:52 BUBU
NotSolved
Blau Sortierfilter in VBA
 28.06.2017 17:50:51 Ben
*****
Solved