ich habe folgenden Code ins Tabellenblatt eingefügt:
Sub ausblenden()
Select Case Range("D18")
Case 1
s = "A": s1 = "G"
Case 2
s = "A": s1 = "L"
Case 3
s = "A": s1 = "Q"
Case 4
s = "A": s1 = "V"
Case 5
s = "A": s1 = "AA"
End Select
Sheets(1).Columns.EntireColumn.Hidden = False
Sheets(1).Columns("A:" & s).EntireColumn.Hidden = True
Sheets(1).Columns(s1 & ":AA").EntireColumn.Hidden = True
Sheets(1).Rows("150:65536").EntireRow.Hidden = True
End Sub
Wenn Das Blatt aber geschützt ist und ich das Makro ausführe bekomme ich die Fehlermeldung 400.
Die komplette Datei gibts hier, wenn das was hilft:
hier ist die Datei:
https://www.herber.de/bbs/user/9811.xls
MfG, Dennis