Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blätter sortieren

Forumthread: Blätter sortieren

Blätter sortieren
Frank
Hallo,
gibt es eine elegante Möglichkeit Excel-Sheets einer Arbeitsmappe via VB alphabetisch zu ordnen?
Oder hat jemand eine Idee wie ich mittels "Sheets.Name" hier weiter komme?
Danke im Voraus
Gruß Frank
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Blätter sortieren
Werner
Hallo Frank,
versuchs mal mit dem Makro.


Sub SheetsAlphaSort()
Dim i As Integer, j As Integer, k As Integer
    k = ActiveWorkbook.Worksheets.Count
    For i = 1 To k
      For j = i To k
        If Worksheets(j).Name < Worksheets(i).Name Then
          Worksheets(j).Move Before:=Worksheets(i)
        End If
      Next j
    Next i
End Sub
Gruss Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige