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

    Registriert seit:
    13. Januar 2002
    Beiträge:
    10
    Hallo!
    Ich möchte meine Tabellenblätter in Excel alphabetisch anordnen.
    Kann mir jemand sagen, wie das funktioniert?
     
  2. india

    india Byte

    Registriert seit:
    13. Januar 2002
    Beiträge:
    10
    Herzlichen Dank für deine Hilfe, Tschoko !
    gruß von india
     
  3. chancen

    chancen Kbyte

    Registriert seit:
    3. Juli 2001
    Beiträge:
    203
    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