Excel: Synchronisieren von DropDown Listen

Hallo zusammen,
gibt es eine Möglichkeit, ein DropDown-Gültigkeit aus Tabelle1, mit der Dropdown-Gültigkeit in Tabelle2, derart zu synchronisieren, dass wenn ich in Tabelle1 im Dropdown den ersten Listeneintrag auswähle, dass in Tabelle2 der gleiche Listeneintrag eingestellt wird? Das gleiche soll passieren in Tabelle1 passieren, wenn ich in Tabelle2 einen Listeneintrag auswähle. DIe Zellen sollen sich also identisch verhalten und miteinander verknüpft sein.
In einem alten Thread hier habe ich für ein ähnliches Problem den hier zitierten Lö _ sungsvorschlag gefunden. Da ich bisher aber nicht mit VBA gearbeitet habe, bin ich nicht sicher wie ich diesen Lösungsweg implementiere. Ich arbeite mit Excel 2019.


"wenn deine Dropdowns jeweils in A1 sind:
in das Klassenmodul von Tab.1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then Sheets("Tabelle2").Range("A1") = Target
End Sub"

Für Hinweise und Erläuterungen wäre ich dankbar.
Vielen Dank im voraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then Sheets("Tabelle2").Range("A1") = Target If Target.Address(0, 0) = "A2" Then Sheets("Tabelle2").Range("A2") = Target End Sub"

Private Sub Worksheet_Change(ByVal Target As Range) Dim objRange As Range, objCell As Range Set objRange = Intersect(Target, Range("A1:A100")) 'Bereich anpassen !!! If Not objRange Is Nothing Then Application.EnableEvents = False For Each objCell In objRange Worksheets("Tabelle2").Range(objCell.Address).Value = objCell.Value Next Application.EnableEvents = True Set objRange = Nothing End If End Sub

Hallo Nepumuk,
danke für die Hilfe. Der Code ist für mich als Laie leider nicht ganz nachvollziehbar, sodass ich befürchte mit der Anwendung überfordert zu sein. Da die Dropdowns nicht nebeneinander liegen ist aber in jedem Fall die Anwendung über einen "Bereich" nur bedingt möglich. Spricht etwas gegen die Variante mit mehreren Zeilen "If Target.Adress..."?
@Werner: Danke auch für deine Hilfe. Den von dir vorgeschlagenen Code bekomme ich leider nicht zum laufen. Wofür dient denn die Event abfrage? Mit dem ursprünglichen Code aus meinem Eingangspost habe ich es Dank der Hilfe hier jetzt hinbekommen mit der zwei-wege-synchro (Code einfach in beide Tabellenblätter mit entpsrechender Anpassung)

Private Sub Worksheet_Change(ByVal Target As Range) Dim objRange As Range, objCell As Range Set objRange = Intersect(Target, Range("I8:O8")) If Not objRange Is Nothing Then For Each objCell In objRange With objCell Worksheets("Tabelle2").Cells(9, .Column - 3).Value = .Value End With Next End If Set objRange = Intersect(Target, Range("I38:O38")) If Not objRange Is Nothing Then For Each objCell In objRange With objCell Worksheets("Tabelle2").Cells(10, .Column - 3).Value = .Value End With Next End If Set objRange = Nothing End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then Application.EnableEvents = False Worksheets("Tabelle2").Range("A1") = Target Application.EnableEvents = True End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then Application.EnableEvents = False Worksheets("Tabelle1").Range("A1") = Target Application.EnableEvents = True End If End Sub

Beliebteste Forumthreads (12 Monate)

Excel: Synchronisieren von DropDown Listen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread