Office: Auswahl und Inhalt mehrerer Zellen verknüpfen

Hallo Community,

ich würde gerne 2 Zellen in denen die selbe Dropdownliste enthalten ist so miteinander verknüpfen, dass der Inhalt beider Zellen identisch ist.

Sprich wähle ich in Tabellenblatt 1 in meiner Liste a, b oder c aus, soll meine getroffene Auswahl in Tabellenblatt 2 angezeigt werden. Möchte ich in Tabellenblatt 2 meine Entscheidung von vorher revidieren und beispielsweise nicht mehr a sondern c wählen soll der Inhalt in Tabellenblatt 1 automatisch angepasst werden.

Im Endeffekt möchte ich also mehrere Auswahlfelder für den gleichen Inhalt erzeugen.

Ich hoffe ihr könnt mir bei der Lösung dieses Problems helfen.
Dafür vielen Dank im voraus :)

 

Hi,

dazu musst du VBA verwenden und zwar das Change-Ereinigs beider Tabellenblätter. Um genaueres sagen zu können müsste man wissen, in welchen Zellen sich die DropDown-Listenfelder befinden.

Bis später,
Karin

 

Danke für die schnelle Antwort,

die genaue Position dieser Felder steht bisher noch nicht wirklich fest, da die Datei noch im Aufbau ist.
Ist die Position denn noch entscheidend wenn man die Felder über den Namen des Bereichs ansteuert?

Mit VBA kenne ich mich leider noch nicht wirklich aus. Da würde ich mich gerne erstmal reinarbeiten und in Kürze nochmal auf die Lösung dieses Problems zurückkommen.

Gruß Philipp

 

Sicher ist das von Interesse, denn mit dem Change-Ereignis muss man die Zellen ansprechen, in denen sich die Gültigkeit befindet.

Angenommen in Tabelle1 ist es Zelle A10 und in Tabelle2 ist es B12. Dann würde folgender Code im Codemodul der Tabelle1

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$10" Then Worksheets("Tabelle2").Range("B12") = Target
End Sub

den Inhalt von B12 in Tabelle2 anpassen und dieser Code

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$B$12" Then Worksheets("Tabelle1").Range("A10") = Target
End Sub

passt dann den Inhalt von A10 in Tabelle1 an.

Bis später,
Karin

 

Ah ok,

dann kommen wir mal zu den detailierteren Informationen.

Wir haben also die Tabellenblätter "Projekt", "2.4.3" und "Listen".

In Tabellenblatt "Projekt" geht es um die Zelle F101 und in Tabellenblatt "2.4.3" um die Zelle F5.
In diesen beiden Zellen steht aktuell eine Datenprüfung -> Liste -> =INDIREKT(Listen!$I$18)

Im Tabellenblatt Listen steht in I18 der Name der Liste die wiedergegeben werden soll.
Dieser Name setzt sich aus Variablen zusammen damit auf Grund einer vorherigen Angabe verschiedene Listen angesteuert werden können.

Falls noch mehr Informationen nötig sein sollten liefere ich diese gerne nach.

Danke :)

 

Ersetze in meinem Code "$A$10" durch "$F$101", "Tabelle2" durch "2.4.3" sowie "$B$12" durch "$F$5", "Tabelle2" durch "Projekt". Der erste Code gehört demnach ins Codemodul des Tabellenblattes "Projekt" und der zweite ins Codemodul des Tabellenblattes "2.3.4"

Bis später,
Karin

 

Ich habe das natürlich gleich mal ausprobiert, leider klappt es noch nicht.

Im Blatt Projekt steht also

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$101" Then Worksheets("2.4.3").Range("$F$5") = Target
End Sub

und im Blatt 2.4.3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$5" Then Worksheets("Projekt").Range("$F$101") = Target
End Sub

In den beiden Dropdownlisten im VBA-Tool ist jeweils Worksheet und Change ausgewählt.
Den Dateityp musste ich dann beim speichern in eine Makro-Variante ändern und habe .xlsm gewählt.

 

Und WAS klappt nicht?

Bis später,
Karin

 

Anbei die Datei

 

Ändere den Code wie folgt:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$F$101" Then
      Application.EnableEvents = False
      Worksheets("2.4.3").Range("$F$5") = Target
      Application.EnableEvents = True
   End If
End Sub

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$F$5" Then
      Application.EnableEvents = False
      Worksheets("Projekt").Range("$F$101") = Target
      Application.EnableEvents = True
   End If
End Sub

Bis später,
Karin

 

Perfekt! Es klappt, danke :)

Dazu ergeben sich jetzt noch folgende Fragen:
- wenn ich über den benannten Zellen Zeilen einfüge, wird dies dann angepasst oder funktioniert diese Formatierung dann nicht mehr?
- wie verhält es sich wenn ich weitere Zellen damit verknüpfen will, beispielsweise Zelle F10 in "Blatt 3.4.1"?
- ist es möglich diese Verknüpfungen über einen relativen Link in eine geschlossene Datei zu verwenden?

 

zu 1.: die Zelladressen passen sich nicht automatisch an - das musst du entweder von Hand im Code ändern oder du vergibst für die Zellen einen Namen, z.B. "Fachbereich_Projekt" und "Fachbereich_2.4.3". Der Code müsste dann so aussehen

(in Projekt)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim strName As String
   On Error Resume Next
   strName = Target.Name.Name
   On Error GoTo 0
   If strName = "Fachbereich_Projekt" Then
      Application.EnableEvents = False
      Worksheets("2.4.3").Range("Fachbereich_2.4.3") = Target
      Application.EnableEvents = True
   End If
End Sub

(in 2.4.3)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim strName As String
   On Error Resume Next
   strName = Target.Name.Name
   On Error GoTo 0
   If strName = "Fachbereich_2.4.3" Then
      Application.EnableEvents = False
      Worksheets("Projekt").Range("Fachbereich_Projekt") = Target
      Application.EnableEvents = True
   End If
End Sub

zu 2.: in dem Fall müsstest du den Code wie folgt erweitern (vorausgesetzt du hast auch dort für die Zelle mit der relevanten Gültigkeit einen Namen vergeben - z.B. "Fachbereich_3.4.1")

(in Projekt)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim strName As String
   On Error Resume Next
   strName = Target.Name.Name
   On Error GoTo 0
   If strName = "Fachbereich_Projekt" Then
      Application.EnableEvents = False
      Worksheets("2.4.3").Range("Fachbereich_2.4.3") = Target
      Worksheets("3.4.1").Range("Fachbereich_3.4.1") = Target
      Application.EnableEvents = True
   End If
End Sub

(in 2.4.3)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim strName As String
   On Error Resume Next
   strName = Target.Name.Name
   On Error GoTo 0
   If strName = "Fachbereich_2.4.3" Then
      Application.EnableEvents = False
      Worksheets("Projekt").Range("Fachbereich_Projekt") = Target
      Worksheets("3.4.1").Range("Fachbereich_3.4.1") = Target
      Application.EnableEvents = True
   End If
End Sub

(und in 3.4.1)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim strName As String
   On Error Resume Next
   strName = Target.Name.Name
   On Error GoTo 0
   If strName = "Fachbereich_3.4.1" Then
      Application.EnableEvents = False
      Worksheets("2.4.3").Range("Fachbereich_2.4.3") = Target
      Worksheets("Projekt").Range("Fachbereich_Projekt") = Target
      Application.EnableEvents = True
   End If
End Sub

zu 3.: diese Frage verstehe ich leider nicht - welche Verknüpfung meinst du?

Bis später,
Karin

 

Die ersten beiden Teile funktionieren super.
Vielen Dank für die ausführliche Erklärung, dadurch wird jetzt auch das Prinzip verständlich :)

Und zu 3.:
Ich würde im Idealfall gerne die Tabs aus der Hauptdatei lösen, da es am Ende extrem viele Tabs werden.
Die Projektdatei liegt also immer im Hauptordner des jeweiligen Projekts. Die aktuellen Tabs hätte ich gerne in Unterordnern.
Sprich im Hauptordner liegt der Ordner 2. -> 2.4 -> 2.4.3 und darin unser Tab 2.4.3 nun als eigene Datei.
Da diese Struktur in jedem Projekt gleich ist würde also nur ein relativer und kein absoluter Link in Frage kommen.

Beste Grüße,
Philipp

 

Hi Philipp,

das funktioniert dann nicht mehr. Wenn du einzelnen Tabellenblätter aus der Hauptdatei löschst, dann läuft der Code selbstverständlich auf einen Fehler, da das betreffende Blatt nicht mehr gefunden wird. Man könnte zwar den Code etwas ändern, um diesen Fehler abzufangen, aber dennoch bleibt das Problem, dass man nichts in einer gschlossenen Arbeitsmappe ändern kann. Auch kannst du dann nicht in z.B. abgelegter Mappe 2.4.3, falls du sie wieder öffnest, irgend etwas ändern, was sich dann in der Hauptdatei ändern soll, denn der Bezug zur Hauptdatei ist ja weg und Excel sucht in der Mappe 2.4.3 nach den im Code angegebenen Tabellenblättern.

Bis später,
Karin

 

Das ist natürlich schade.

Ist denn ein einseitiger Informationsaustausch möglich?
Ich trage also die Daten in der Projektdatei ein. Wenn ich dann meine Datei 2.4.3 öffne wird dort angezeigt was ich vorher im Projekt eingegeben habe und ich kann es dort nach Bedarf ändern. Das diese Änderung wieder im Projekt angezeigt wird wäre mir nicht so wichtig wie die Dateien zu splitten!?