kann mir jemand sagen wo der Fehler ist??
Beim Öffnen einer Datei soll nur ein tabellenblatt (tabelle1) eingeblendet werden, dass den user aufruft die makros zu aktivieren!
Geht er auf aktivieren, sind zwei tabellenblätter zu sehen.
Beim schließen soll auch wieder nur ein tabellenblatt (diesmal tabelle2) erscheinen.
kriegs nicht hin!
dank im voraus
Private Sub Workbook_Open()
For Each i In ActiveWorkbook.Sheets
If i.Name = "Tabelle2" Then
Worksheets("Tabelle1").Visible = True
Else
i.Visible = True
Sheets("Allgemeine Kriterien").Select
Sheets("Tabelle1").Visible = xlVeryHidden
Sheets("Tabelle2").Visible = xlVeryHidden
End If
Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each i In ActiveWorkbook.Sheets
If i.Name = "Tabelle2" Then
i.Visible = True
Else
i.Visible = xlVeryHidden
End If
Next
ActiveWorkbook.Close
End Sub