Microsoft Excel

Herbers Excel/VBA-Archiv

Bekomme immer Fehler 400 angezeigt

Betrifft: Bekomme immer Fehler 400 angezeigt von: Dennis Kaulen
Geschrieben am: 19.08.2004 16:25:40

Moin Leute,

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
  


Betrifft: AW: Bekomme immer Fehler 400 angezeigt von: Dr.
Geschrieben am: 19.08.2004 16:55:49

Klar, wenn´s Blatt geschützt ist, gibts Probs beim Ausblenden. ;-)


  


Betrifft: AW: Bekomme immer Fehler 400 angezeigt von: Dennis Kaulen
Geschrieben am: 19.08.2004 17:10:37

Danke Dr.
Auch wenn du mir keinen direkten Tip gegeben hast, aber so wusste ich wo ich suchen muss.
Nun funktionierts 100%.

MfG, Dennis


 

Beiträge aus den Excel-Beispielen zum Thema "Bekomme immer Fehler 400 angezeigt"