Office: Tabellenblätter sortieren mit Ausnahme

changbob · 17. April 2016

Hallo Forum,

ich habe mal wieder eine kleine Frage bezüglich VBA-Makros in Excel 2010.

Ich möchte, dass meine Tabellenblätter automatisch von A-Z sortiert werden, das habe ich auch bereits umgesetzt.

Code:

Private Sub Workbook_Open()
' Sortieren von Arbeitsblättern
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
' Ende Sortieren von Arbeitsblättern´)$
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Allerdings habe ich drei Blätter mit den Namen 'Firmenliste', 'Legende' und 'Blanko', die von der Sortierung ausgenommen werden und immer am Anfang stehen sollen.

Ist das umsetzbar?

Danke & Gruß
Christoph

:)

DeBabba · 19. April 2016

Hi,
ohne das geprüft zu haben
Kannst Du nicht mit
For i = 4 To k

anfangen? so bleiben doch die ersten 3 Blätte unberührt

Gruß
DeBabba

changbob · 19. April 2016

Danke, das war ja dann auch schon die Lösung... das passiert, wenn man mit dank Halbwissen den Code nicht wirklich versteht *rotwerd*

DeBabba · 19. April 2016

Null Problemo,
manchmal ist es das einfachste was man absolut nicht sieht
Gruß
DeBabba

Office: Tabellenblätter sortieren mit Ausnahme

Tabellenblätter sortieren mit Ausnahme

Tabellenblätter sortieren mit Ausnahme

Tabellenblätter sortieren mit Ausnahme

Tabellenblätter sortieren mit Ausnahme - Similar Threads - Tabellenblätter sortieren Ausnahme

Zeilen aus Tabelle mit bestimmten Wert in verschiedene Tabellenblätter sortieren

Tabellenblatt automatisch sortieren

Sortieren über mehrere Tabellenblätter mit Bezug

mehrere Tabellenblätter über eine Schaltfläche mit nur einem Makro sortieren.

Tabellenblatt sortieren ohne select

Namen sortieren in andere Tabellenblatt

Namen suchen und kopieren in andere Tabellenblatt