Vielen Dank und Grüsse
Marco
code folgt:
Private Sub CommandButton1_Click()
If ActiveSheet.Protect = falsch Then
If Selection.EntireRow.Hidden = False Then
CommandButton1.Caption = "Abrufdaten Einblenden"
Rows("10:22").Select
Selection.EntireRow.Hidden = True
Else
CommandButton1.Caption = "Abrufdaten Ausblenden"
Rows("9:22").Select
Selection.EntireRow.Hidden = False
Range("A1").Select
End If
Else
MsgBox ("Blatt geschuetzt, Makro nicht ausfuehrbar!")
End If
End Sub