ich habe gestern hier https://www.herber.de/forum/messages/255579.html Hilfe von Andreas erhalten. Den Code habe ich noch folgendermaßen abgeändert:
Private Sub CommandButton1_Click()
Static intStatus%
Dim strButtonText$
'Abfrage erster Aufruf nach Öffnen der Datei, ermitteln Status
If intStatus = 0 Then
If Columns(3).Hidden Then
intStatus = 2
ElseIf Columns(5).Hidden Then
intStatus = 3
Else: intStatus = 1
End If
End If
Select Case intStatus
Case 1:
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Columns("A:IV").Hidden = False
Columns("A:B").Hidden = True
Columns("F:I").Hidden = True
Columns("K:O").Hidden = True
Columns("Q:U").Hidden = True
Columns("W:X").Hidden = True
Columns("Z:Z").Hidden = True
Columns("AB:AP").Hidden = True
Columns("AR:AW").Hidden = True
Columns("AY:AY").Hidden = True
Columns("BA:BA").Hidden = True
Columns("BC:BC").Hidden = True
Columns("BE:BE").Hidden = True
Columns("BK:BL").Hidden = True
strButtonText = "Werner"
ActiveSheet.Protect
Application.ScreenUpdating = True
Case 2:
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Columns("A:IV").Hidden = False
Columns("A:B").Hidden = True
Columns("F:I").Hidden = True
Columns("L:O").Hidden = True
Columns("Q:R").Hidden = True
Columns("T:V").Hidden = True
Columns("Y:Y").Hidden = True
Columns("AR:AW").Hidden = True
strButtonText = "alles anzeigen"
ActiveSheet.Protect
Application.ScreenUpdating = True
Case 3:
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Application.ScreenUpdating = True
Columns("A:IV").Hidden = False
strButtonText = "von den Berg"
ActiveSheet.Protect
Case Else: MsgBox "Das sollte nie passieren", , "Fehler"
End Select
CommandButton1.Caption = strButtonText
intStatus = (intStatus Mod 3) + 1
End Sub
Leider habe ich später festgestellt, dass das Ganze unter Excel 97 nicht läuft. Hier gibt es ein Problem mit UNPROTECT.
Was muß ich ändern, damit das Ganze auch unter Excel 97 läuft???
Danke
Gruß
Carsten