Tabellenblätter sortieren

Tabellenblätter alphabetisch sortieren

Inhalt

  • Variablen dimensionieren
  • For-Next Schleife über alle Tabellenblätter
  • Strings (Zeichenketten) vergleichen
  • Tabellenblatt verschieben
  • Das Überwachungsfenster
  • Tabellenblatt aktivieren / markieren
  • Bildschirmupdates deaktivieren
  • personal.xlsb (Persönliche Arbeitsmappe) aktivieren
  • Makro in Symbolleiste einfügen

 

Code

Sub TabellenblaetterSortieren()

'Bildschirmupdates deaktivieren
Application.ScreenUpdating = False

'Variablen dimensionieren
Dim Außen As Long
Dim Innen As Long
Dim ws As Worksheet

'Tabellenblatt merken
Set ws = ActiveSheet

'Schleife düe die aktuelle Position
For Außen = 1 To Worksheets.Count

    'Schleife über aktuelles Tabellenblatt nach der aktuellen Position
    For Innen = Außen To Worksheets.Count
    
        'Zeichenketten vergleichen
        If Worksheets(Innen).Name < Worksheets(Außen).Name Then
        
            'Tabellenblatt verschieben
            Worksheets(Innen).Move before:=Worksheets(Außen)
            
        End If
        
    Next Innen
    
Next Außen

'Ursprüngliches Tabellenblatt aktivieren
ws.Activate

'Bildschirmupdates aktivieren
Application.ScreenUpdating = True

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

Teile diesen Beitrag

Neuste Beiträge

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung