Wie synchronisiere ich Dropdown-Listen in mehreren Arbeitsblättern in Excel?
Angenommen, Sie haben Dropdown-Listen auf mehreren Arbeitsblättern in einer Arbeitsmappe, die genau die gleichen Dropdown-Elemente enthalten. Jetzt möchten Sie die Dropdown-Listen über Arbeitsblätter hinweg synchronisieren, sodass die Dropdown-Listen in anderen Arbeitsblättern automatisch mit derselben Auswahl synchronisiert werden, sobald Sie ein Element aus einer Dropdown-Liste in einem Arbeitsblatt auswählen. Dieser Artikel enthält einen VBA-Code, der Ihnen bei der Lösung dieses Problems hilft.
Synchronisieren Sie Dropdown-Listen in mehreren Arbeitsblättern mit VBA-Code
Synchronisieren Sie Dropdown-Listen in mehreren Arbeitsblättern mit VBA-Code
Beispielsweise sind die Dropdown-Listen in fünf Arbeitsblättern benannt Blatt1, Blatt2, ... Blatt5, Um die Dropdown-Listen in anderen Arbeitsblättern entsprechend der Dropdown-Auswahl in Sheet1 zu synchronisieren, wenden Sie bitte den folgenden VBA-Code an, um dies zu erledigen.
1. Öffnen Sie Sheet1, klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie sie aus Code anzeigen aus dem Rechtsklick-Menü.
2. In dem Microsoft Visual Basic für Applikationen Fenster, fügen Sie den folgenden VBA-Code in die Blatt1 (Code) Fenster.
VBA-Code: Dropdown-Liste in mehreren Arbeitsblättern synchronisieren
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 Sub
Anmerkungen:
3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Von nun an, wenn Sie ein Element aus der Dropdown-Liste in auswählen Blatt1, Die Dropdown-Listen in den angegebenen Arbeitsblättern werden automatisch synchronisiert, um dieselbe Auswahl zu haben. Sehen Sie sich die folgende Demo an.
Demo: Synchronisieren Sie Dropdown-Listen 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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!