Tabellenblätter aufsteigend per Makro sortieren

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

So geben Sie Ihren Tabellen eine alphabetische Reihenfolge

Daten in Ihren Listen alphabetisch zu sortieren, ist kein Problem. Aber wie stellen Sie es an, wenn Sie die Tabellenblätter entsprechend ihrer Namen in eine alphabetische Reihenfolge bringen möchten?

Die folgende Abbildung zeigt ein Blattregister mit einer Reihe von Tabellenblättern. Sie sollen alphabetisch sortiert werden, damit sie einfacher zu finden sind.

3

Bei wenigen Blättern können Sie die Aufgabe zuverlässig manuell erledigen. Bei vielen Blättern wird das schnell schwierig, aufwändig und unübersichtlich. Das folgende Makro hilft Ihnen weiter:

Sub SortiereBlaetter()
Dim Zaehler1 As Integer, Zaehler2 As Integer
Dim Name As String
Name = ActiveSheet.Name
For Zaehler1 = 1 To Worksheets.Count
 For Zaehler2 = Zaehler1 To Worksheets.Count
  If UCase(Worksheets(Zaehler2).Name) < UCase(Worksheets(Zaehler1).Name) Then
   Worksheets(Zaehler2).Move before:=Worksheets(Zaehler1)
  End If
Next Zaehler2, Zaehler1
Worksheets(Name).Activate
End Sub

Das Makro sortiert die Tabellenblätter in der aktiven Arbeitsmappe in alphabetisch aufsteigender Reihenfolge. Die folgende Abbildung zeigt, wie die Beispiel-Arbeitsmappe aussieht, nachdem Sie das Makro gestartet haben:

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"