Office: Schleife für alle Tabellenblätter bis auf das letzte

Moin,

ich möchte gerne in Excel Tabellen per VBA sortieren lassen.
Es sollen alle Blätter sortiert werden, bis auf das letzte Blatt in der Mappe.

Der Code zum sortieren klappt ganz gut, aber wie schließe ich das letzte Blatt aus?
Über Namen des Tabellenblatts oder Anzahl kann ich nicht gehen, da das immer unterschiedlich ist.

Mein bisheriger Code, für alle Blätter der Mappe:

Code:

Gruß
Marcel

:)

 

Hey,

Code:

Gruß
Thomas

 

Hallo Marcel,

so?

Dim lngIndex As Long

For lngIndex = 1 To ThisWorkbook.Worksheets.Count - 1

With ThisWorkbook.Worksheets(lngIndex)

.Sort.SortFields.Clear 'alle ggf. vorhergegangenen Sortierungen löschen


'Sortieroption 1, nach Status
.Sort.SortFields.Add Key:=Range("F6:F80" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

'Sortieroption2, nach Artikelnr.
.Sort.SortFields.Add Key:=Range("D6:D80" _
), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="0-99999", _
DataOption:=xlSortNormal


With .Sort
.SetRange Range("B5:H80") 'Bereich, der sortiert werden soll
.Header = xlYes 'Auswahl hat überschriften
.MatchCase = False 'groß und kleinschreibung berücksichtigen
.Orientation = xlTopToBottom 'Sortieren von oben nach unten
.SortMethod = xlPinYin 'sortiermethode für andere sprachen
.Apply 'sortieren ausführen
End With

'Aufheben der markierungen vom sortieren
'Application.Goto Reference:=.Range("A6")
End With
Next

Application.ScreenUpdating = True

 

Moin Thomas,

danke, das scheint zu klappen!

Könntest du mir noch kurz erklären,
was der Code

wks.Index ActiveWorkbook.Sheets.Count

genau bewirkt?

Gruß und danke,

Marcel

 

Hey,

klar!

Du schleifst ja durch alle Blätter und nutzt dafür die variable wks.
Der Index ist die Stelle an der das Blatt in der Datei steht.
Also hat das erste Blatt ganz links in der Mappe den Index 1 das zweite Blatt den Index 2 usw.
Mit ActiveWorkbooks.Sheets.Count zählst Du alle Sheets die vorhanden sind.
Sagen wir mal es sind insgesamt 5 Blätter, dann würde die Variable wks.Index im ersten Durchlauf der Schleife den Wert 1 haben und das ActiveWorkbook.Sheets.Count würde immer den Wert 5 haben (5 Blätter insgesamt)
In der If Bedingung sagst Du also
IF wks.index (1) (etwas anderes) als ActiveWorkbooks.Sheets.Count(5) dann führe den Code aus.
Ansonsten springe direkt weiter zum End If

Ich hoffe das war einigermaßen verständlich *tongue.gif*

Gruß
Thomas

 

Moin Thomas,

vielen Dank für die Erklärung, jetzt hab ich es verstanden.

Gruß
Marcel