Stellen Sie sich eine Situation vor, in der Sie mehrere Blätter gleichzeitig aus- und einblenden müssen. Wenn jemand manuell ein- und ausblendet, wird dies viel Zeit in Anspruch nehmen.
In diesem Artikel erfahren Sie, wie Sie mehrere Registerkarten mithilfe von VBA-Code dynamisch aus- oder einblenden.
F): Ich möchte ein Makro, das mehrere Registerkarten gleichzeitig aus- oder einblendet.
Es folgt eine Momentaufnahme von Sheet1, in der es zwei dynamische Listen geben wird, d.h. Tabs ausblenden und Tabs einblenden
- Die Idee ist, wenn wir auf die Schaltfläche Ausblenden oder Einblenden klicken, sollten die aufgelisteten Blätter ein- 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 aus der Gruppe Code die Option Visual Basic
- Klicken Sie auf Einfügen und dann auf Modul
Dadurch wird ein neues Modul erstellt.
Geben Sie den folgenden Code in das Modul ein
Sub HideTabs()Dim TabNo As DoubleDim LastTab As DoubleLastTab = Range("Hide_TabsDNR").Count
Bei Fehler Fortsetzen als nächstes
For TabNo = 2 To LastTab
Sheets(Range("Hide_TabsDNR")(TabNo)).Visible = False
Nächste TabNr
Bei Fehler GoTo 0
Blätter(1).Auswählen
End Sub
Unter UnHideTabs()
Dim TabNo As Double
Letzten Tab als Double dimmen
LastTab = Range("Hide_TabsDNR").Count
Bei Fehler Fortsetzen als nächstes
For TabNo = 2 To LastTab
Sheets(Range("UnHide_TabsDNR")(TabNo)).Visible = True
Nächste TabNr
Bei Fehler GoTo 0
Blätter(1).Wählen
End Sub
- Wir sind alle bereit, das Makro auszuführen. Wenn wir auf die Schaltfläche Ausblenden klicken, werden alle aufgelisteten Blätter ausgeblendet, siehe unten Schnappschuss
- Auf die gleiche Weise werden alle ausgeblendeten Blätter, die in Spalte D erwähnt werden, eingeblendet, wenn wir auf die Schaltfläche Einblenden klicken.
Auf diese Weise können wir mehrere Registerkarten gleichzeitig dynamisch ein- oder ausblenden.