Dropdowns synchronisieren

[mikro1987]

es ist auch nur ein Name drin. Dieser dient als Grundlage für die beiden Dropdowns. 
Eine Tabelle ist leider keine Option, da die richtige Datei das einfach nicht hergibt.

[BoskoBiati]

Hi Dieter,

einer von uns beiden hat das Problem wohl nicht verstanden....

[Klaus-Dieter]

Hallo Dieter,

Eine Tabelle ist leider keine Option, da die richtige Datei das einfach nicht hergibt.

eine Antwort kann immer nur so gut sein, wie die Frage!

[BoskoBiati]

Hi,

nachdem Du jetzt mal so langsam verkündet hast, was Du letzendlich willst, würde ich mal behaupten, dass das nur mit VBA geht. Ich würde Dir empfehlen, den Aufbau der Auswertung zu überdenken und Alles in eine Tabelle zu packen.

[Case]

Hallo, :19:

das kannst Du z. B. per VBA machen: :21:


  Beispiel Dropdown.xlsm (Größe: 23,14 KB / Downloads: 6)

Daten - Gültigkeit steuert DropDown auf allen Tabellenblättern außer dem ersten Blatt.

[mikro1987]

das sieht gut aus. 

brauche ich den ganzen Code oder lässt sich das auch etwas kürzer darstellen?

[Case]

Hallo, :19:

kürzer geht immer - aber, warum möchtest Du den Code kürzen?

[mikro1987]

habe ihn nicht ganz verstanden. 
Man müsste doch nur bei Veränderung eines Dropdowns das Makro starten.

[schauan]

Hallöchen,

hier mal ein kürzerer Ansatz. Das Makro kommt in DieseArbeitsmappe und betrifft hier auch nur die Zellen D1 bzw. es geht nur, wenn die Dropdowns auf den Blättern in der gleichen Zelle stehen. Tabelle4 wird hier auch gefüllt, obwohl da kein Dropdown drin ist - prüf ich ja auch nicht und diesem Code ist das egal

Code:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Events ausschalten
Application.EnableEvents = False
'Fallunterscheidung nach Blattname
Select Case Sh.Name
 'Wenn Blattname einer der 3 Namen ist
 Case "Tabelle2", "Tabelle3", "Tabelle4"
   'Wenn die Zelle D1 ist, dann
   If Target.Address = "$D$1" Then
      '3 Blaetter selektieren
      Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4")).Select
      'Eingabeblatt aktivieren
      Sh.Activate
      'betreffende Zelle nochmal selektieren
      Range("$D$1").Select
      'Eintragung uebernehmen
      ActiveCell.FormulaR1C1 = Target.Value
      'Eingabeblatt selektieren
      Sh.Select
   'Ende Wenn die Zelle D1 ist, dann
   End If
'Ende Fallunterscheidung nach Blattname
End Select
Application.EnableEvents = True
'Events einschalten
End Sub