bin jetzt gänzlich am Verzweifeln!
Hab jetzt meines Wissens alle Varianten durchgespielt
(siehe ca. 30 Thread´s weiter unten), doch leider führte keine
zum 100% igem Erfolg, egal ob nun mit dem Recorder
aufgezeichnet oder Beates Code benutzt.
Die Mappe beinhaltet 36 Sheet´s. Bei Aktivierung des
Codes Alles_ausblenden() wird alles ausgeblendet,
jedoch in 3 Sheet´s bleiben die Zeilen und Spaltenüberschriften
stehen. Warum nur?
Mein Projekt ist eigentlich fertig, dies sollte nun das Finish werden
und schon wieder bin ich soweit vom Ziel entfernt :-( !
Hat noch jemand eine Idee woran es liegen könnte?
Gruß von einem verzweifelten und für jeden Tipp Dankbaren
Fredi
Hier der Code von Beate (Schaltflächen zugewiesen)
Sub Alles_ausblenden()
With Application
.ScreenUpdating = False
.CommandBars("toolbar list").Enabled = False
.CommandBars("Worksheet Menu Bar").Enabled = False
.CommandBars("Cell").Enabled = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
.DisplayFullScreen = True
End With
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.WindowState = xlMaximized
End With
End Sub
Sub Alles_herstellen()
With Application
.ScreenUpdating = False
.CommandBars("toolbar list").Enabled = True
.CommandBars("Worksheet Menu Bar").Enabled = True
.CommandBars("Cell").Enabled = True
.DisplayFormulaBar = False
.DisplayStatusBar = False
.DisplayFullScreen = False
End With
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.WindowState = xlMaximized
End With
End Sub