Habe schon im Service nachgeschaut, leider nichts gefunden was mich weiterbringt.Der Fehler taucht auf beim öffnen der Mappe, wo alle Tabs ausgeblendet werden, ausser das Hauptblatt.
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Worksheets("Hauptblatt").Activate
Worksheets("Jan-07").Visible = xlVeryHidden
Worksheets("Febr-07").Visible = xlVeryHidden
Worksheets("März-07").Visible = xlVeryHidden
Worksheets("Apr-07").Visible = xlVeryHidden
Worksheets("Mai-07").Visible = xlVeryHidden
Worksheets("Juni-07").Visible = xlVeryHidden
Worksheets("July-07").Visible = xlVeryHidden
Worksheets("Aug-07").Visible = xlVeryHidden
Worksheets("Sept-07").Visible = xlVeryHidden
Worksheets("Okt-07").Visible = xlVeryHidden
Worksheets("Nov-07").Visible = xlVeryHidden
Worksheets("Jan-06").Visible = xlVeryHidden
Worksheets("Febr-06").Visible = xlVeryHidden
Worksheets("März-06").Visible = xlVeryHidden
Worksheets("Apr-06").Visible = xlVeryHidden
Worksheets("Mai-06").Visible = xlVeryHidden
Worksheets("Juni-06").Visible = xlVeryHidden
Worksheets("July-06").Visible = xlVeryHidden
Worksheets("Aug-06").Visible = xlVeryHidden
Worksheets("Sept-06").Visible = xlVeryHidden
Worksheets("Okt-06").Visible = xlVeryHidden
Worksheets("Nov-06").Visible = xlVeryHidden
Ich habe nicht alle Tabs reinkopiert.
Vielleicht hat jemand eine Idee?
Mfg. Peter