Excel-Tabellenblätter sortieren

Dieses Thema im Forum "Office-Programme" wurde erstellt von india, 16. Februar 2004.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. india

    india Byte

    Hallo!
    Ich möchte meine Tabellenblätter in Excel alphabetisch anordnen.
    Kann mir jemand sagen, wie das funktioniert?
     
  2. india

    india Byte

    Herzlichen Dank für deine Hilfe, Tschoko !
    gruß von india
     
  3. chancen

    chancen Kbyte

    Hallo india,

    mit folgendem Makro kannst Du das erledigen:

    Public Sub SortWorksheets()
    Dim Cnt As Integer
    Dim N As Integer
    Dim M As Integer
    On Error Goto EndOfMacro
    Application.Screenupdating = False
    Cnt = ActiveWorkbook.Worksheets.Count
    For M = 1 To Cnt
    For N = M To Cnt
    If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then
    Worksheets(N).Move before:=Worksheets(M)
    End If
    Next N
    Next M
    EndOfMacro:
    Application.Screenupdating = True
    End Sub

    Gruß Tschoko
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen