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.
Hi Dieter,
einer von uns beiden hat das Problem wohl nicht verstanden....
Hallo Dieter,
Zitat: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!
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.
Hallo, :19:
das kannst Du z. B. per
VBA machen: :21:
[
attachment=19980]
Daten - Gültigkeit steuert DropDown auf
allen Tabellenblättern außer dem
ersten Blatt.
das sieht gut aus.
brauche ich den ganzen Code oder lässt sich das auch etwas kürzer darstellen?
Hallo, :19:
kürzer geht immer - aber, warum möchtest Du den Code kürzen?
habe ihn nicht ganz verstanden.
Man müsste doch nur bei Veränderung eines Dropdowns das Makro starten.
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