Blätter sortieren
31.10.2002 17:10:47
Zschech
Ich habe eine Eingabemaske (Blatt(1), nach der sich die folgenden 8 Blätter flexibel ein- und ausblenden. Danach kommen noch zwei Blätter die immer am Ende der Mappe stehen sollen.Ich lasse mit Hilfe dieses Makros einzelne Arbeitsblätter ein und ausblenden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets(3).Cells(1, 1).Value = 0 Then Sheets(3).Visible = False Else Sheets(3).Visible = True
If Sheets(4).Cells(1, 1).Value = 0 Then Sheets(4).Visible = False Else Sheets(4).Visible = True
usw.
End Sub
Das Problem ist, dass die Arbeitsblätter manchmal in ungeordneter Reihenfolge stehen. Ich möchte bitte wissen wie man ein Makro erstellt, daß die Blätter immer nach Blatt 1- 16 sortiert. Ausgeblendete Blätter sollen dabei weiter ausgeblendet werden.
Danke im Vorraus Zschech