Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellen sortieren ausser Tabelle1 | Herbers Excel-Forum


Betrifft: Tabellen sortieren ausser Tabelle1 von: chandler
Geschrieben am: 02.08.2012 21:40:39

Hallo Profis,

auf der Suche nach einem Makro das die Tabellen sortiert, es sind Zahlen, habe ich folgendes gefunden:

Public Sub SortWorksheets() 
Dim Cnt%, N%, M%
Dim ws As Worksheet
    Set ws = ActiveSheet
    Cnt = ActiveWorkbook.Worksheets.Count
    For M = 2 To Cnt
        For N = M To Cnt
            If Worksheets(N).Name < Worksheets(M).Name Then
                Worksheets(N).Move Before:=Worksheets(M)
            End If
        Next N
    Next M
End Sub

Wie kann das Makro angepasst werden, dass die erste Tabelle1 mit dem Name "Inhalt" nicht sortiet wird?
Ich habe bereits auf For M = 2 To Cnt geändert, trotzdem wird "Inhalt" nach hinten sortiert.

Vielen Dank im Voraus.

chandler

  

Betrifft: geht 1a. owT von: Rudi Maintaire
Geschrieben am: 02.08.2012 21:54:56




  

Betrifft: AW: geht 1a. owT von: chandler
Geschrieben am: 02.08.2012 22:05:15

Hallo Rudi,

nein, nicht ganz.

Die erste Tabelle die den Name "Inhalt" hat und die restlichen Tabellen als Name nur eien Zahl haben
werden zwar sortiert, dabei wird die Tabelle "Inhalt" auch mit sortiert. Die Tabelle "Inhalt" soll nicht sortiert werden und immer vorne bleiben.

Grüße chandler


  

Betrifft: AW: geht 1a. owT von: Nepumuk
Geschrieben am: 02.08.2012 22:25:31

Hallo,

bei mir nicht. Die wird auch gar nicht angesprochen da die Schleife mit der 2. Tabelle beginnt.

Gruß
Nepumuk


  

Betrifft: AW: geht 1a. owT von: chandler
Geschrieben am: 03.08.2012 20:50:30

Hallo Nepumuk,

ist ja logisch, ich habe die bereits ausgeblendete Tabelle außer Acht gelassen. Hier: For M = 3 To Cnt

Vielen Dank.

chandler


Beiträge aus den Excel-Beispielen zum Thema "Tabellen sortieren ausser Tabelle1"