Private
Sub
CommandButton1_Click()
If
CommandButton1.Caption =
"Ausblenden"
Then
Range(
"A1"
).EntireRow.Hidden =
True
ActiveWindow.WindowState = xlNormal
CommandButton1.Caption =
"Einblenden"
ElseIf
CommandButton1.Caption =
"Einblenden"
Then
Range(
"A1"
).EntireRow.Hidden =
False
ActiveWindow.WindowState = xlMaximized
CommandButton1.Caption =
"Ausblenden"
End
If
End
Sub