Daten per VBA sortieren

10. Juli 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

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

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"