Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Ein-/Ausblenden von Worksheets

    Betrifft: Ein-/Ausblenden von Worksheets von: Torsten K.
    Geschrieben am: 02.09.2003 08:35:14

    Guten Morgen beisammen,

    in einer Datei mit 15 Registern möchte ich ein Button einfügen, mit dem ich einige der Worksheets ausblenden bzw. wieder einblenden kann. Mit einem einzelnen WS habe ich das hingekriegt. Aber bei mehreren komme ich nicht weiter.Bisher habe ich folgendes versucht:

    Private Sub cmb_DatenShow_Click()
    
    If GetPassword = True Then
        With Sheets(Array("REYbLY", "RELY", "RECY", "BUCY")).Select
        .Visible = True
    Else
        MsgBox "Password ist falsch"
    End If
    
    End Sub
    

    Excel bringt die Fehlermeldung "Else ohne If". Aber die Logik "If-Else-End If" ist doch eingeahlten!? Kann mir jemand auf die Sprünge helfen?
    (Anmerkung: Die Funktion GetPassword habe ich vorher definiert und funktioniert tadellos, daran kann's eigentlich nicht liegen.)
    Vielen Dank für Eure Hilfe.

    Gruß

    Torsten
      


    Betrifft: Sorry, Frage versehentlich 2 mal gestellt. (oT) von: Torsten K.
    Geschrieben am: 02.09.2003 08:36:56

    ..


     

    Beiträge aus den Excel-Beispielen zum Thema " Ein-/Ausblenden von Worksheets"