Ein-/Ausblenden von Worksheets

Forumthread: Ein-/Ausblenden von Worksheets
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Ein-/Ausblenden von Worksheets

02.09.2003 10:34:49

Torsten K.

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ein-/Ausblenden von Worksheets

02.09.2003 10:56:38

xXx
AW: Auweia! ...Schönen Dank. Gruß TK (oT)

02.09.2003 12:30:09

Torsten K.
AW: Ein-/Ausblenden von Worksheets

02.09.2003 12:41:44

Torsten K.
AW: Ein-/Ausblenden von Worksheets

02.09.2003 13:29:01

Martin Bolleter
Hi Martin. Klappt prima! Vielen Dank. Gruß TK (oT)

02.09.2003 13:42:28

Torsten K.

AW: Ein-/Ausblenden von Worksheets

02.09.2003 10:56:38

xXx

Hallo,
die Fehlermeldung ist irreführend.
Du hast das 'End With' vergessen.

Gruß aus'm Pott
Udo

AW: Auweia! ...Schönen Dank. Gruß TK (oT)

02.09.2003 12:30:09

Torsten K.

AW: Ein-/Ausblenden von Worksheets

02.09.2003 12:41:44

Torsten K.

Hallo Udo,

zu früh gefreut....
Das "End With" habe ich hinzugefügt. Dann wollte Excel von dem "Select" nichts mehr wissen. Nachdem ich das entfernt hatte sieht's jetzt so bei mir aus:


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

Folgende Fehlermeldung erhalte ich: Die Visible-Eigenschaft des Sheets-Objektes kann nicht festgelegt werden. Kannst Du mir weiterhelfen?
Dank im voraus.

Gruß

Torsten

AW: Ein-/Ausblenden von Worksheets

02.09.2003 13:29:01

Martin Bolleter

Hallo Torsten

ich fürchte, das geht so nicht mit der Array-Variablen. Aber versuche es mal so:


Sub test()
Dim Arr, i%
Arr = Array("Sheet2", "Sheet3", "Sheet4")
For i = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i)).Visible = False
Next i
End Sub

Gruss
Martin