VBA - Ganzer Bildschirm ein/aus
08.11.2008 08:21:33
Klaus
Ich habe mir in Excel ein CD-Archiv angelegt, das ich bequem über einfache Makros auf meine Bedürfnisse abgestimmt steuern kann.
Unter anderem kann ich den "Ganzen Bildschirm" ein- und ausschalten - ich wollte diese Prozedur mit Variable und Not Variable auf ein Makro zusammenlegen (siehe Beispiel für Zeilen- und Spaltenköpfe ein/ausblenden):
Sub ZeilenSpaltenköpfe()
neuZS = ActiveWindow.DisplayHeadings
ActiveWindow.DisplayHeadings = Not neuZS
End Sub
Bei der Sache "Ganzer Bildschirm ein/aus" ist mir das nicht gelungen und ich musste die beiden Prozeduren getrennt in 2 Makros anlegen:
Sub GB_ein()
Application.DisplayFullScreen = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("CDA_Archiv").Visible = True
End Sub
Sub GB_aus()
Application.DisplayFullScreen = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("CDA_Archiv").Visible = True
End Sub
Lässt sich das auch in einem Makro fusionieren?
Für Tips besten Dank im Voraus
Klaus