Blattregisterkarten sortieren

Bild

Betrifft: Blattregisterkarten sortieren
von: Benjamin
Geschrieben am: 26.10.2003 21:21:04

Hallo zusammen,

gibt es eine Möglichkeit meine Blattregisterkarten automatisch alphabetisch sortieren zu lassen?

Grüße
benjamin

Bild


Betrifft: AW: Blattregisterkarten sortieren
von: geri
Geschrieben am: 26.10.2003 21:22:56

Hallo Benjamin

versuch es hiermit


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 geri


Bild


Betrifft: AW: Blattregisterkarten sortieren
von: Benjamin
Geschrieben am: 26.10.2003 21:38:23

klasse!
Danke!


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Blattregisterkarten sortieren"