JoepG
Gebruiker
- Lid geworden
- 23 okt 2020
- Berichten
- 39
Beste mensen,
Ik heb al veel van jullie geleerd, maar volgende kan ik niet vinden en waarschijnlijk is het zeer simpel maar ik kom er niet op.
Ik heb een knop gemaakt om alle tabbladen die verborgen zijn zichtbaar te maken. met:
Sub Tabbladenweergeven()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Dat werkt mooi, maar ik wil nu eigenlijk een knop, dit ook omgekeerd doet maar dan op 1 tabblad na. (tabblad "algemeen") moet als enige zichtbaar blijven.
Sub Tabbladenverbergen()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = x1Sheethide
Next ws
End Sub
Maar hier krijg ik error, omdat er minimaal 1 blad zichtbaar moet blijven, ik krijg de uitzonder algemeen er alleen niet ingezet..
Via een vraag van een ander kwam ik bij deze code:
Sub Verbergen_zichtbaarmaken()
Dim Aantal As Integer
Dim I As Integer
Aantal = ActiveWorkbook.Worksheets.Count
For I = 1 To Aantal
If ActiveWorkbook.Sheets(I).Name <> "Algemeen" Then
ActiveWorkbook.Sheets(I).Visible = Not ActiveWorkbook.Sheets(I).Visible
End If
Next I
End Sub
Maar dat werkt niet zoals gehoopt.
Kan iemand me hierbij helpen?
Ik heb al veel van jullie geleerd, maar volgende kan ik niet vinden en waarschijnlijk is het zeer simpel maar ik kom er niet op.
Ik heb een knop gemaakt om alle tabbladen die verborgen zijn zichtbaar te maken. met:
Sub Tabbladenweergeven()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Dat werkt mooi, maar ik wil nu eigenlijk een knop, dit ook omgekeerd doet maar dan op 1 tabblad na. (tabblad "algemeen") moet als enige zichtbaar blijven.
Sub Tabbladenverbergen()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = x1Sheethide
Next ws
End Sub
Maar hier krijg ik error, omdat er minimaal 1 blad zichtbaar moet blijven, ik krijg de uitzonder algemeen er alleen niet ingezet..
Via een vraag van een ander kwam ik bij deze code:
Sub Verbergen_zichtbaarmaken()
Dim Aantal As Integer
Dim I As Integer
Aantal = ActiveWorkbook.Worksheets.Count
For I = 1 To Aantal
If ActiveWorkbook.Sheets(I).Name <> "Algemeen" Then
ActiveWorkbook.Sheets(I).Visible = Not ActiveWorkbook.Sheets(I).Visible
End If
Next I
End Sub
Maar dat werkt niet zoals gehoopt.
Kan iemand me hierbij helpen?
Laatst bewerkt: