Arbeitsblätter gruppieren

[Leonhard]

Hi,

genau in diese Richtung =)
Ein neues Blatt neben der Übersicht müsste auch immer sichtbar sein und heißt "Fälligkeit". Wie kann ich das im Code noch ergänzen?

[Elex]

Dann so.

Code:

  For Each Blatt In ThisWorkbook.Worksheets
    If Blatt.Name <> "Übersicht" And Blatt.Name <> "Fälligkeit" Then Blatt.Visible = False
  Next Blatt

Gruß Elex

[Leonhard]

Eine Frage dann doch noch

Kann ich die Blätter auch noch alphabetisch sortieren lassen? Auch hier dürften die Blätter "Übersicht" & "Fälligkeit" wieder nicht berücksichtigt werden. Die sollen immer vorne anstehen.

Beste Grüße
Leo

[Elex]

Wenn du alle Blätter angelegt hast, dann lasse das Makro einmal laufen und es sortiert alle Blätter.

Code:

Sub Makro1()
Dim ArList As Object, BN As Variant

Sheets("Fälligkeit").Move Before:=Sheets(1)
Sheets("Übersicht").Move Before:=Sheets(1)

Set ArList = CreateObject("System.Collections.ArrayList")
For Each BN In ThisWorkbook.Worksheets
   If BN.Name <> "Übersicht" And BN.Name <> "Fälligkeit" Then ArList.Add BN.Name
Next BN
ArList.Sort
ArList.Reverse

For Each BN In ArList
  Sheets(BN).Move Before:=Sheets(3)
Next BN
End Sub

Gruß Elex