Clever-Excel-Forum

Seiten: 1 2

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? Blush

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

Eine Frage dann doch noch Angel

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

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

Seiten: 1 2

Leonhard

Elex

Leonhard

Elex