Blätter in Externer Arbeitsmappe einblenden
26.04.2008 09:17:00
Heinz
Ich habe den Code zum einblenden aller Sheets in dieser Arbeitsmappe.
Okay funkt.
Sub einblenden()
Dim sh As Worksheet
For Each sh In Sheets
sh.Visible = True
Next sh
End Sub
Nun möchte ich aber von meiner Arbeitsmappe "Gewichtsblätter & Wochenumbau",
alle Blätter in der Arbeitsmappe "KW18", "KW19" usw.. Also immer mit "KW" einblenden.
Könnte mir dazu bitte jemand weiterhelfen.
Gruß
Heinz
Anzeige