Blätter ein- und ausblenden
27.08.2011 07:28:49
Erich
Hi Josef,
die folgende Prozedur sieht umständlich aus, vermeidet aber, dass versucht wird, ALLE Blätter auszublenden.
Probier mal:
Private Sub CommandButton1_Click()
'Sub SheetsVisible()
Dim arrAus, Wks As Worksheet, varN, blnOK As Boolean
' Liste der auszublendenden Blätter
arrAus = Array("LOBU", "PERSO", _
"STUNDEN", "URLAUB")
' Einblenden der restlichen Blätter
For Each Wks In ThisWorkbook.Worksheets
For Each varN In arrAus
If Wks.Name = varN Then Exit For
Next varN
If Wks.Name varN Then
blnOK = True
If Not Wks.Visible Then Wks.Visible = True
End If
Next Wks
' Ausblenden der gelisteten Blätter
If blnOK Then
For Each Wks In ThisWorkbook.Worksheets
For Each varN In arrAus
If Wks.Name = varN Then Exit For
Next varN
If Wks.Name = varN Then Wks.Visible = False
Next Wks
Else
MsgBox "Mindestens ein Blatt muss eingeblendet sein!", vbCritical
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort und: Schönes Wochenende!