Tabellenblätter ein-ausblenden
10.10.2007 11:31:26
Rolf
ich habe aus dem Forum zwei Makros, die eine Fehlermeldung bringen.
Funktion: Makro 1 Tabellenblatt 1 und 2 ausblenden - Makro 2 Tabellenblätter wieder einblenden
Fehlermeldung: "Sub oder Function nicht definiert"
Sub BlattVerstecken()
'Blätter per VBA ausblenden
Dim Blatt
For Each Blatt In Sheets(Array("Tabelle2", "Tabelle3"))
Blatt.Visible = xlSheetVeryHidden
Next
End Sub
Sub MehrereBlaetterNacheinanderEinblenden()
Dim Blatt
For Each Blatt In Sheets(Array("Tabelle2", "Tabelle3"))
Blatt.Visible = True
Next
End Sub
Hat jemand eine Idee wo der Fehler liegt?
Vielen Dank im voraus
Rolf