Brauchen Sie Hilfe?
Web:     Online-Formular
E-Mail:  
Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Tel:       +49(0)151 / 164 55 914

Nutzen Sie für Ihre Anfrage unser Online-Formular oder senden Sie uns eine E-Mail an Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!. Gerne können Sie aber auch direkt telefonisch Kontakt aufnehmen.

   
     Referenzen
 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

Tabellenblätter alphabetisch sortieren

Dieser VBA-Code sortiert die Tabellenblätter einer Arbeitsmappe in alphabetischer Reihenfolge wahlweise aufsteigend oder absteigend.

Um die Sortierreihenfolge zu ändern müssen Sie nur die Variable strSortKrit anpassen und entweder den Parameter ">" oder "<" übergeben.

  • Der Parameter ">" sortiert die Blätter absteigend, also von Z-A und von 9-0
  • Der Parameter "<" sortiert die Bläter aufsteigend von 0-9 und von A-Z

 

Sub Sheets_alphabetisch_sortieren()
'** Dieses Makro sortiert die Blätter in alphabetischer Reihenfolge
'** Reihenfolge: Sonderzeichen, Ziffern, Buchstaben

'** Dimensionierung der Variablen
Dim intAnz As Integer
Dim a, b As Integer
Dim strSortKrit As String

'** Sortierreihenfolge festlegen
'** "<" = Aufsteigend von 0-9 und A-Z
'** ">" = Absteigend von Z-A und 9-0
strSortKrit = ">" 'Nach Bedarf anpassen!

'** Ermittlung Anzahl Tabellenblätter
intAnz = ActiveWorkbook.Worksheets.Count

'** Blätter nacheinander durchlaufen und sortieren
For a = 1 To intAnz
  For b = a To intAnz
    If strSortKrit = "<" Then
      If Worksheets(b).Name < Worksheets(a).Name Then
        Worksheets(b).Move Before:=Worksheets(a)
      End If
    ElseIf strSortKrit = ">" Then
      If Worksheets(b).Name > Worksheets(a).Name Then
        Worksheets(b).Move Before:=Worksheets(a)
      End If
    End If
  Next b
Next a

End Sub

 

   

Relevante Artikel

  • Öffnen-Dialog mit vordefinierter Pfadangabe aufrufen

    In diesem Beispiel zeige wir Ihnen, wie Sie per VBA ein Dialogfenster zum Öffnen von Dateien aufrufen können. Das besondere an diesem Code ist, dass ein beliebiges Verzeichnis vorgegeben werden kann und...

  • Arbeitsmappe per VBA schließen

    103002 Es gibt verschiedene Möglichkeiten per VBA eine Arbeitsmappe zu schließen.Variante 1: Speichern mit DialogfensterBei dieser Variante stellt Excel die Frage, ob die Datei gespeichert werden...

  • Daten aus geschlossener Arbeitsmappe auslesen

    Um Daten per VBA aus einer anderen Arbeitsmappe auszulesen, muss diese im Normalfall zunächst geöffnet werden um anschließend auf die einzelnen Zellinhalte zugreifen zu können.   Es geht aber auch...

  • Arbeitsmappe aus Dateiliste öffnen

    103008 In Excel werden Wahlweise bis zu 9 der zuletzt geöffneten Arbeitsmappen unter dem Menüpunkt 'Datei' angezeigt. Möchten Sie aus dieser Auswahlliste eine Datei öffnen, dann hilft Ihnen dieses...

  • Dateiname und Pfad in Fußzeile einfügen

      Die Datei muss dazu aber mindestens 1 mal gespeichert worden sein, sonst kann der Pfad ja nicht bekannt sein. Also die Datei zuerst speichern und anschließend das Makro ausführen.   Sub...

   

Excel-Inside auf Facebook Excel-Live News blog Excel-Inside RSS-Feed Twitter Account für Excel-Inside Mail an Excel-Inside 

Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
Unsere Produkte
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013