Private
Sub
CommandButton1_Click()
If
CommandButton1.Caption =
"Lagerungssystem ToGo"
Then
Columns(
"H:H"
).EntireColumn.Hidden =
True
Application.DisplayFullScreen =
True
CommandButton1.Caption =
"Lagerungssystem"
ElseIf
CommandButton1.Caption =
"Lagerungssystem"
Then
Columns(
"H:H"
).EntireColumn.Hidden =
False
Application.DisplayFullScreen =
False
ActiveWindow.WindowState = xlMaximized
CommandButton1.Caption =
"Lagerungssystem ToGo"
End
If
End
Sub