Tabellenblätter mit Makro aus-einblenden
29.12.2012 12:12:43
Tweri
Ich habe eine Frage zu einem Makro welches mir die Vorgegebenen Tabellenblätter aus-einblenden.
Ich habe Die Tabellenblätter so benannt, dass diese immer mit "Hilfstabelle_" beginnen. Jetzt habe ich ein Makro welches alle diese Benannten Tabellen aus oder einblendet.
Beim Einblenden geht alles super, bein ausblenden kommt jedoch immer diese Meldung:
"Fehler beim Kompilieren: Argument ist nicht Optional."
Hier ist mein Makro:
Sub BlaetterAusblenden()
Dim Passwort As String
Passwort = Application.InputBox(prompt:="Geben Sie das Passwort ein", Type:=2)
If Passwort "rtteebl17" Then Exit Sub
Dim strPrefix As String
Dim IngPreLen As Long
Dim objSheet As Object
strPrefix = "Hilfstabelle_"
IngPreLen = Len(strPefix)
For Each objSheet In ThisWorkbook.Sheets
If Left(objSheet.Name.IngPreLen) = strPrefix Then
objSheet.Visible = False
End If
Next objSheet
Set objSheet = Nothing
End Sub
Sub BlaetterEinblenden()
Dim Passwort As String
Passwort = Application.InputBox(prompt:="Geben Sie das Passwort ein", Type:=2)
If Passwort "rtteebl17" Then Exit Sub
Dim objSheet As Object
For Each objSheet In ThisWorkbook.Sheets
objSheet.Visible = True
Next objSheet
Set objSheet = Nothing
End Sub
Kann mir jemand bei meinem Problem helfen?
Vielen Dank
Gruss Tweri