Laufzeitfehler 1004
01.10.2014 10:19:27
Hannes
Ich habe einmal ein Makro für das einblenden von Tabellenblättern aufgezeichnet und einmal für das ausblenden von Tabellenblättern.
Das Makro für das Einblenden der Tabellenblätter funktioniert perfekt. Wenn ich einmal meinen Makro fürs Einblenden einsetze dann blendet er die Tabellenblätter ein, wenn ich noch einmal den Makro einsetze dann passiert gar nichts, da ja die Tabellenblätter eingeblendet sind. Es kommt keine Fehlermeldung auf wie beim Ausblenden.
Beim Makro für das Ausblenden funktioniert das leider nicht so wie beim Einblenden. Beim ersten ausführen blendet dieser die Tabellenblätter aus. Beim nochmaligen ausführen des Makros kommt ein Laufzeitfehler 1004 auf. "Die Select-Methode des Worksheets-Objektes konnte nicht ausgeführt werden"
Was genau mache ich da falsch?
Danke schonmal im Voraus!
MFG
Hannes
Sub pcs_ausblenden()
' pcs_ausblenden Makro
Sheets("Charts 201205").Select Replace:=False
Sheets(Array("Summary F&M-PP", "Savings Charts", "Fab & Machine", _
"Purchased Parts & Services", "Cost Savings 101101", "Charts 101101", _
"Cost Savings 101102", "Charts 101102", "Cost Savings 101104", "Charts 101104", _
"Cost Savings 101110", "Charts 101110", "Cost Savings 101114", "Charts 101114", _
"Cost Savings 101121", "Charts 101121", "Cost Savings 103118", "Charts 103118", _
"Cost Savings 103119", "Charts 103119", "Cost Savings 103139", "Charts 103139", _
"Cost Savings 201203", "Charts 201203", "Charts 201205")).Select
Sheets("Charts 201205").Activate
Sheets("Cost Savings 201205").Select Replace:=False
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Choice").Select
Range("A1").Select
End Sub
Sub pcs_einblenden()
'
' pcs_einblenden Makro
'
'
Sheets("Summary F&M-PP").Visible = True
Sheets("Savings Charts").Visible = True
Sheets("Fab & Machine").Visible = True
Sheets("Purchased Parts & Services").Visible = True
Sheets("Cost Savings 101101").Visible = True
Sheets("Charts 101101").Visible = True
Sheets("Cost Savings 101102").Visible = True
Sheets("Charts 101102").Visible = True
Sheets("Cost Savings 101104").Visible = True
Sheets("Charts 101104").Visible = True
Sheets("Cost Savings 101110").Visible = True
Sheets("Charts 101110").Visible = True
Sheets("Cost Savings 101114").Visible = True
Sheets("Charts 101114").Visible = True
Sheets("Cost Savings 101121").Visible = True
Sheets("Charts 101121").Visible = True
Sheets("Cost Savings 103118").Visible = True
Sheets("Charts 103118").Visible = True
Sheets("Cost Savings 103119").Visible = True
Sheets("Charts 103119").Visible = True
Sheets("Cost Savings 103139").Visible = True
Sheets("Charts 103139").Visible = True
Sheets("Cost Savings 201203").Visible = True
Sheets("Charts 201203").Visible = True
Sheets("Cost Savings 201205").Visible = True
Sheets("Charts 201205").Visible = True
Range("A1").Select
End Sub