title image


Smiley (Tabellen)Blätter per VBA alphabetisch sortieren
Hey Dony,



das funktioniert nur per Makro. Kopiere folgendes Makro in ein Modul im VBA-Editor :

      

Sub BlätterSortieren()

   Dim WS As Object

   Set WS = ActiveSheet

   Anzahl = ActiveWorkbook.Sheets.Count

   For x = 1 To Anzahl

      For y = x To Anzahl

         If Sheets(y).Name < Sheets(x).Name Then

         Sheets(y).Move Before:=Sheets(x)

         End If

      Next y

   Next x

End Sub 

Damit das Makro automatisch aufgerufen wird, wenn ein neues Blatt eingefügt wird, musst Du zusätzlich folgendes Makro in "DieseArbeitsmappe" im VBA-Editor kopieren :

      

Private Sub Workbook_NewSheet(ByVal Sh As Object)

    BlätterSortieren

End Sub 

Leider gibt es (bis Excel 2003) keine Möglichkeit, das Makro zu starten, wenn ein Blatt umbenannt wird :-(



Gruß, JerryB
Bezeichnungen der Elemente eines Excel XP Fensters (Bild, ca. 170 KB).

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: