Rufe ich Vollbild auf, kann ich in den Zellen keine Eingaben mehr tätigen.
Rufe ich aber direkt Screen1 auf, funktionier es. Warum ist das so?!
____________________________________________________________________________
Sub Vollbild()
If tblVerwaltung.tgbVollbild = True Then
Call Screen1
Else:
Call Screen2
End If
End Sub
Sub Screen1() 'Vollbild
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.Windows("Verwaltung.xlsm").DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End Sub
Sub Screen2() 'normale Ansicht
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
Application.Windows("Verwaltung.xlsm").DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
End Sub