Daten per VBA sortieren

Wie Sie Sortiervorgänge per Makro ausführen

Sie möchten Daten aus einem VBA-Programm heraus sortieren? Beim interaktiven Einsatz von Excel rufen Sie das Kommando "Daten - Sortieren" auf, aber wie erledigen Sie das mit einem Makro? Die folgende Abbildung zeigt eine unsortierte Liste:

Um eine solche Liste beispielsweise nach Spalte B zu sortieren, setzen Sie das folgende Makro ein:

Sub SortiereSpalteAufsteigend()
Dim Sortierspalte As String
Dim Bereich As String
Bereich = "A1:D28"
Sortierspalte = "B"
ActiveSheet.Range(Bereich).Sort _
 Key1:=Range(Sortierspalte & "1"), Order1:=xlAscending, _
 Header:=xlGuess, MatchCase:=False, _
 Orientation:=xlTopToBottom
End Sub

Wenn Sie das Makro starten, wird der entsprechende Zellbereich in der Tabelle markiert. Als Kriterium verwendet Excel die Inhalte aus Spalte B. die folgende Abbildung zeigt das Ergebnis:

Um das Makro an Ihre Wünsche anzupassen, legen Sie die Inhalte für die Variablen "Bereich" und "Sortierspalte" fest. In der ersten Variable definieren Sie, welcher Zellbereich sortiert werden soll, mit der zweiten Variable steuern Sie, welche Spalte als Kriterium verwendet werden soll.

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html