Stellen Sie sich eine Situation vor, in der Sie mehrere Blätter gleichzeitig ein- und ausblenden müssen. Wenn sich jemand manuell versteckt und einblendet, nimmt dies viel Zeit in Anspruch.

In diesem Artikel erfahren Sie, wie Sie mithilfe von VBA-Code mehrere Registerkarten dynamisch ein- oder ausblenden.

F): Ich möchte ein Makro, das mehrere Registerkarten gleichzeitig ein- oder ausblendet.

Es folgt eine Momentaufnahme von Blatt 1, in der zwei dynamische Listen vorhanden sind, d. H. Registerkarten ausblenden und Registerkarten einblenden

img1

  • Die Idee ist, wenn wir auf die Schaltfläche Ausblenden oder Einblenden klicken, sollten die aufgelisteten Blätter ausgeblendet oder ausgeblendet werden. Wir müssen die folgenden Schritte ausführen:

Um das Ergebnis zu erhalten, müssen wir den VB-Editor starten. Klicken Sie auf die Registerkarte Entwickler. * Wählen Sie in der Gruppe Code Visual Basic

img2

aus * Klicken Sie auf Einfügen und dann auf Modul

img3

Dadurch wird ein neues Modul erstellt.

Geben Sie den folgenden Code in das Modul Sub ein. HideTabs () Dim TabNo As DoubleDim LastTab As Double LastTab = Bereich („Hide_TabsDNR“). .Visible = False Next TabNo On Error GoTo 0 Sheets (1) .Wählen Sie End Sub

===

Sub UnHideTabs ()

Dim TabNo As Double

Last LastTab As Double

LastTab = Range („Hide_TabsDNR“). Count

Bei Fehler Fortsetzen Weiter

Für TabNo = 2 To LastTab

Sheets (Range („UnHide_TabsDNR“) (TabNo)). Visible = True

Weiter TabNo

Bei Fehler GoTo 0

Blätter (1) .Wählen Sie

End Sub

img4

  • Wir sind alle bereit, das Makro auszuführen. Wenn wir auf die Schaltfläche Ausblenden klicken, werden alle aufgelisteten Blätter ausgeblendet (siehe Schnappschuss

img5

) * Wenn wir auf die Schaltfläche Einblenden klicken, werden alle in Spalte D genannten ausgeblendeten Blätter ausgeblendet.

Auf diese Weise können wir mehrere Registerkarten gleichzeitig dynamisch ein- oder ausblenden.