Wie synchronisiert man eine Dropdown-Liste in mehreren Arbeitsblättern in Excel?
Angenommen, Sie verfügen in mehreren Arbeitsblättern einer Arbeitsmappe über Dropdown-Listen mit exakt denselben Einträgen. Nun möchten Sie diese Dropdown-Listen arbeitsblattübergreifend synchronisieren, sodass die Auswahl eines Elements in einem Arbeitsblatt automatisch auch in allen anderen Arbeitsblättern übernommen wird. Dieser Artikel stellt einen VBA-Code bereit, der Ihnen genau dabei hilft.
Synchronisieren Sie Dropdown-Liste in mehreren Arbeitsblättern mit VBA-Code
Synchronisieren Sie Dropdown-Liste in mehreren Arbeitsblättern mit VBA-Code
Beispielsweise befinden sich Dropdown-Listen in fünf Arbeitsblättern mit den Namen Sheet1, Sheet2, ..., Sheet5, um die Dropdown-Liste in den anderen Arbeitsblättern entsprechend der Auswahl in Sheet1 zu synchronisieren. Wenden Sie dazu bitte den folgenden VBA-Code an.
1. Öffnen Sie Sheet1, klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen.
2. Fügen Sie im Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code in das Fenster Sheet1 (Code) ein.
VBA-Code: Synchronisieren Sie Dropdown-Liste in mehreren Arbeitsblättern
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
Dim tSheet1 As Worksheet
Dim tRange As Range
Dim xRangeStr As String
On Error Resume Next
If Target.Count > 1 Then Exit Sub
xRangeStr = "A2:A11"
Set tRange = Intersect(Target, Range(xRangeStr))
If Not tRange Is Nothing Then
xRangeStr = tRange.Address
Application.EnableEvents = False
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
tSheet1.Range(xRangeStr).Value = Target.Value
Application.EnableEvents = True
End If
End SubHinweise:
3. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Ab sofort wird beim Auswählen eines Elements aus der Dropdown-Liste in Sheet1 die Auswahl in den Dropdown-Listen der angegebenen Arbeitsblätter automatisch synchronisiert. Siehe untenstehende Demo.
Demo: Synchronisieren Sie Dropdown-Liste in mehreren Arbeitsblättern in Excel
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins