Vollbildfehler
Christof
bein Umschalten mit VBA in den Vollbildmodus taucht immer wieder ein Fehler (s.Anlage)
Den Fehler hab' ich nicht nur in Excel 2003 oder auf einen bestimmten Rechner und er ist auch nicht eine bestimmte Excel-Datei begrenzt. Schalte ich den Modus zweimal hin und her, ist der Fehler behoben, aber nur, bis ich das TB "Projektliste" aufrufe.
Habe ich alleine den Fehler? Gibt's Lösungen?
Hier den Code den ich verwende:
Sub Vollbild_aus()
Range("E2").Select
With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Enabled = True
Application.CommandBars("Formatting").Enabled = True
Application.CommandBars("Drawing").Enabled = True
Application.DisplayFullScreen = False
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
End Sub
----------------------------------------------------
Sub Vollbild_ein()
Dim Cdb As CommandBar
For Each Cdb In Application.CommandBars
If Cdb.Enabled = True Then
On Error Resume Next
If Cdb.Visible = True Then
Cdb.Enabled = False
End If
End If
Next Cdb
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFullScreen = True
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
End Sub
'nen netten GrußChristof