Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een specifiek werkblad te verbergen of zichtbaar te maken op basis van de celwaarde in een ander blad?

Zijn er methoden om een ​​specifiek werkbladtabblad te verbergen of zichtbaar te maken op basis van een celinhoud op een ander blad? Wanneer ik bijvoorbeeld de tekst "Ja" invoeg in de cel G1 van Sheet2, wil ik dat Sheet1 wordt verborgen en wanneer ik "Nee" invoeg, wordt Sheet1 in één keer weergegeven. Hoe kan ik dit probleem oplossen in Excel?

Een specifiek werkbladtabblad verbergen of zichtbaar maken op basis van de celwaarde met VBA-code

Alle andere werkbladen verbergen of zichtbaar maken, behalve het actieve werkblad met Kutools voor Excel


pijl blauwe rechterbel Een specifiek werkbladtabblad verbergen of zichtbaar maken op basis van de celwaarde met VBA-code


Om een ​​specifiek werkbladtabblad te verbergen of zichtbaar te maken op basis van een celwaarde in een ander werkblad, kan de volgende VBA-code u een plezier doen, doe dan als volgt:

1. Ga naar het werkblad met de celwaarde waarvan u een ander blad wilt verbergen op basis van.

2. Klik met de rechtermuisknop op het bladentabblad en selecteer Bekijk code, in de popped out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in het lege module venster, zie screenshot:

VBA-code: een werkbladtabblad verbergen of verbergen op basis van de celwaarde:

Private Sub Worksheet_Change(ByVal Target As Range)
If [G1] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If
End Sub

tabblad Doc hide op basis van celwaarde 1

Let op: In de bovenstaande code, G1 en Ja zijn de cel- en celinhoud waarop u wilt baseren, en Sheet1 is het specifieke blad dat u wilt verbergen of zichtbaar wilt maken. U kunt ze naar uw behoefte veranderen.

3. Sla deze code vervolgens op en sluit deze, wanneer u "Nee" of andere tekst in cel G1 invoert, is Sheet1 verborgen, maar als u "Ja" in de cel invoert, wordt Sheet1 in één keer weergegeven, zie schermafbeeldingen:

tabblad Doc hide op basis van celwaarde 2
 1
tabblad Doc hide op basis van celwaarde 3

pijl blauwe rechterbel Alle andere werkbladen verbergen of zichtbaar maken, behalve het actieve werkblad met Kutools voor Excel

In Excel moet u mogelijk alle andere werkbladtabs verbergen en alleen het actieve werkblad laten weergeven, om ze een voor een te verbergen, is geen goede keuze, hier kan ik een nuttige tool aanbevelenKutools for Excel, Met Verberg ongeselecteerde bladen hulpprogramma, kunt u alle andere werkbladen verbergen, behalve het actieve werkblad met één klik.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

1. Ga naar het werkblad dat u wilt weergeven en klik op Kutools > Weergeven / verbergen > Verberg ongeselecteerde bladenzie screenshot:

tabblad Doc hide op basis van celwaarde 4

2. En alle bladtabs zijn in één keer verborgen behalve de actieve, zie screenshot:

tabblad Doc hide op basis van celwaarde 5

Let op: Als u ze weer zichtbaar wilt maken, hoeft u alleen maar te klikken Kutools > Weergeven / verbergen > Alle vellen zichtbaar maken om de verborgen bladen onmiddellijk weer te geven.

tabblad Doc hide op basis van celwaarde 6

Download nu Kutools voor Excel!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Walido Lido · 9 months ago
    Hello
    Thank you for the tip. I need to do the same scenario but not on one cell only (G1 in this case) but on all cells of column G. I have tried with "Range" but it didn't work.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("X2:X100") = "" Then
    Sheets("EU TASK BASED MEASUREMENTS").Visible = False
    Else
    Sheets("EU TASK BASED MEASUREMENTS").Visible = True
    End If
    End Sub


    Thank you in advance