Office: Drop Down Menü einfügen

Hallo!
Mein Aufbau der Tabelle:
3 Tabellenblätter: Statistik 2009, Statistik 2008, Statistik 2007
1 Masterliste
In der Masterliste möchte ich gerne ein Button oder Drop Down Menü haben, das wenn ich drauf drücke und z.B. Statistik 2008 auswähle, die komplette Tabelle aus dem tabellenblatt Statistik 2008 in die Masterliste kopiert wird. änder ich die auswahl im drop down menü auf statistik 2007. soll dann in der masterliste die tabelle aus dem tabellenblatt statistik 2007 erscheinen und nur dir. das heißt, die zuvor aufgerufene tabelle statistik 2008 soll weg sein!
hoffe ich habe das einigermaßen gut beschrieben! für eure hilfe wäre ich euch sehr sehr dankbar!
gruß

 

Hallo Totti15485,

ich nehme an, dass Du weißt, wie man VBA-Makros eingibt.
Ferner nehme ich an, dass Du 4 Arbeitsblätter hast:
'Master', 'Statistik 2007', 'Statistik 2008' und 'Statistik 2009'; und in allen 4 Arbeitsblättern ist die Zelle A1 die linke obere Zelle des jeweiligen zusammenhängenden Datenbereiches.

1) Das nachfolgende Makro ins Klassen-Codemodul des Arbeitsblattes 'Master' eingeben:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Stat$, Jahr$
  
  Stat$ = Target.Value: Jahr$ = Right$(Stat$, 4)
  If Left$(Stat$, 9) <> "Statistik" Then Exit Sub
  If InStr("|2007|2008|2009|", "|" & Jahr$ & "|") < 1 Then Exit Sub
  If MsgBox("Möchten Sie tatsächlich '" & Stat$ & "' in die Masterliste kopieren?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
  
  Sheets("Master").Range("A1").CurrentRegion.Delete
  Sheets(Stat$).Range("A1").CurrentRegion.Copy Sheets("Master").Range("A1")

End Sub

2) Dann am besten im Arbeitsblatt 'Master' in 3 Zellen, die von der Masterliste durch Leerzellen abgetrennt sind, die 3 Arbeitsblattnamen 'Statistik 2007', 'Statistik 2008' und 'Statistik 2009' eingeben.

3) Sobald Du einen Doppelklick auf eine der 3 Zellen ausführst, kopierst Du den Datenbereich des jeweiligen Arbeitsblattes ins Arbeitsblatt 'Master' (der vorherige Inhalt der Masterliste im Arbeitsblatt 'Master' wurde ab Zelle A1 gelöscht).
Zur Vorsicht fragt das Makro noch nach, ob Du das auch wirklich tun willst.
Machst Du auf eine andere Zelle einen Doppelklick, passiert überhaupt nichts.
4) Wie Du siehst, braucht man dazu kein Drop-Down-Menü, nur die 3 Zellen mit den Arbeitsblattnamen der Quelldatenbereiche.

 

Hallo!

Das sollte doch auch noch ohne VBA gehen:
Erstelle ein Gültigkeits-DropDown in einer beliebigen Zelle, z.B. B2
Menü Daten > Gültigkeit > Zulassen: Liste > Quelle: Statistik 2007;Statistik 2008;Statistik 2009

Nun holt dir diese Formel den Wert aus A1 des ausgewählten Blatts:
=INDIREKT("'"&$B2&"'!"&ADRESSE(ZEILE(A1);SPALTE(A1)))

Du kannst sie beliebig weit nach rechts und nach unten ausfüllen.
Falls auch Leerzellen auftauchen können, dann ist dies wohl schöner:
=WENN(INDIREKT(...)="";"";INDIREKT(...))