Aber ich möchte bei erneutem Doppelklick alles wieder einschalten, bekomme ich nicht hin.
Habe jetzt zwei Zellen wie folgt:
an:
Case "Q8"
If Application.DisplayFullScreen = False Then
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayGridlines = False
End If
aus:
Case "P8"
If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayGridlines = False
End If
Ist bestimmt ganz einfach, aber ich bekomme es nicht hin.