Private
Sub
CommandButton1_Click()
If
CommandButton1.Caption =
"Ausblenden"
Then
Range(
"A1"
).EntireRow.Hidden =
True
ActiveWindow.WindowState = xlNormal
With
ActiveWindow
.Top = 86.5
.Left = 13.75
.Width = 745.5
.Height = 345.75
End
With
CommandButton1.Caption =
"Einblenden"
ElseIf
CommandButton1.Caption =
"Einblenden"
Then
Range(
"A1"
).EntireRow.Hidden =
False
ActiveWindow.WindowState = xlMaximized
CommandButton1.Caption =
"Ausblenden"
End
If
End
Sub