auf alle Tabellenblätter anwenden
05.11.2004 11:15:33
Jana
wie kann ich mit meinem folgenden Code alle Tabellenblätter ansprechen?
Hab es schon mal probiert, aber es klappt nicht.
Function Einblenden()
Dim i As Integer
With Application
.ScreenUpdating = False
.CommandBars("Standard").Enabled = True
.CommandBars("Worksheet Menu Bar").Enabled = True
.CommandBars("Formatting").Enabled = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
.DisplayScrollBars = True
End With
For i = 1 To ActiveWorkbook.Worksheets.Count
With Worksheets(i)
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayHeadings = True
.DisplayWorkbookTabs = True
.WindowState = xlMaximized
End With
Next
End Function
Danke Jana
Anzeige