Arbeitsblätter sortieren lassen
10.11.2002 15:40:15
zschech
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
usw. bis Blatt 24
If Sheets(27).Cells(1, 1).Value = 0 Then Sheets(27).Visible = False Else Sheets(27).Visible = True
End Sub
Die Arbeitblätter geraten immer durcheinander, je nachdem welche Bedingung für das Einblenden eines Blatte zuerst erfüllt wird. Ich möchte die eingeblendeten Blätter nach einer Zahl in der Spalte (A2)sortieren lassen Blatt 1;2;4;7;9;10 usw.Kann mir jemand mit einem Makro helfen und wenn ja wie binde ich es ein. Bin leider kein Makrospezialist.
Danke André