Listen per Dropdown? Ist das möglich?

[strawberina]

Ich habe mal eine Datei hochgeladen. Habe mich mal etwas mit VBA beschäftigt, aber ich bekomme es nicht so ganz hin. Ich weiß es ist sehr komplex.
Aber wie man in der Datei sehen kann ist in Tabelle 2 eine Dropdown Auswahl mit PPAP und VDA2. Nun hätte ich gern wenn ich PPAP auswähle den vorderen Teil der PPAP Tabelle (sprich: Tabelle 1, A9-C27 und wenn ich VDA2 auswähle dann A30-C52). Ich schaffe es leider immer nur, dass ein Makro ausgeführt wird. Habe es schon mit einer Wenn Funktion probiert, aber irgendwie will es nicht klappen. 
Danke erstmal für die vielen Antworten!

[Rabe]

Hi,

Ich schaffe es leider immer nur, dass ein Makro ausgeführt wird. Habe es schon mit einer Wenn Funktion probiert, aber irgendwie will es nicht klappen. 

zuerst mal ohne VBA:
Tabelle2

	A	B	C	D	E
1		1
2
3	PPAP
4	Bemusterung	Nr.	Inhalt		Hilfszellen
5	PPAP	1	Designaufzeichnungen		PPAP1
6	2	Dokumente über technische Änderungen		PPAP2
7	3	Technische Freigabe		PPAP3
8	4	Konstruktions – Fehler – Möglichkeits – und – Einfluss – Analyse (FMEA)		PPAP4
9	5	Prozessflussdiagramme		PPAP5
10	6	Prozess – Fehler – Möglichkeits – und – Einfluss – Analyse (FMEA)		PPAP6
11	7	Produktionslenkungsplan		PPAP7
12	8	Analyse von Messsystemen		PPAP8
13	9	Messergebnisse		PPAP9
14	10	Material- und Leistungstests		PPAP10
15	11	Untersuchungen zur Kurzzeitfähigkeit der Prozesse		PPAP11
16	12	Dokumentation eines qualifizierten Laboratoriums		PPAP12
17	13	Bericht zur Freigabe des Aussehens		PPAP13
18	14	Muster – Serienteile		PPAP14
19	15	Referenzmuster		PPAP15
20	16	Spezifische Prüfmittel		PPAP16
21	17	Kundenspezifische Anforderungen		PPAP17
22	18	Teilevorlage Bestätigung		PPAP18
23	19			PPAP19
24	20			PPAP20
25	21			PPAP21
26	22			PPAP22

verbundene Zellen

A5:A26

verwendete Formeln
Zelle	Formel	Bereich	N/A
B1	=SVERWEIS(A3;Tabelle1!L2:M3;2;0)
A5	=A3
C5:C26	=WENNFEHLER(SVERWEIS($E5;Tabelle1!A10: D52;4;0);"")
E5:E26	=$A$5&$B5

Daten, Gültigkeit
Zelle	Zulassen	Daten	Wert1	Wert2	Leere Zellen ignorieren	Zellendropdown	Titel Eingabemeldung	Eingabemeldung	Titel Fehler	Fehlermeldung	Typ Fehlermeldung
A3	Liste		=Tabelle1!$L$2:$L$3		Wahr	Wahr					Stopp

Tabelle1

	A	B	C	D
9	Hilfszellen	Bemusterung	Nr.	Inhalt
10	PPAP1	PPAP	1	Designaufzeichnungen
11	PPAP2	2	Dokumente über technische Änderungen
12	PPAP3	3	Technische Freigabe
13	PPAP4	4	Konstruktions – Fehler – Möglichkeits – und – Einfluss – Analyse (FMEA)
14	PPAP5	5	Prozessflussdiagramme
15	PPAP6	6	Prozess – Fehler – Möglichkeits – und – Einfluss – Analyse (FMEA)
16	PPAP7	7	Produktionslenkungsplan
17	PPAP8	8	Analyse von Messsystemen
18	PPAP9	9	Messergebnisse
19	PPAP10	10	Material- und Leistungstests
20	PPAP11	11	Untersuchungen zur Kurzzeitfähigkeit der Prozesse
21	PPAP12	12	Dokumentation eines qualifizierten Laboratoriums
22	PPAP13	13	Bericht zur Freigabe des Aussehens
23	PPAP14	14	Muster – Serienteile
24	PPAP15	15	Referenzmuster
25	PPAP16	16	Spezifische Prüfmittel
26	PPAP17	17	Kundenspezifische Anforderungen
27	PPAP18	18	Teilevorlage Bestätigung
28
29
30		Bemusterung	Nr.	Inhalt
31	VDA 21	VDA 2	1	Prüfergebnisse zur Produktfreigabe
32	VDA 22	2	Muster
33	VDA 23	3	Technische Spezifikationen
34	VDA 24	4	Produkt-FMEA
35	VDA 25	5	Konstruktions-, Entwicklungsfreigaben des Lieferanten bei Entwicklungs-Verantwortung entsprechend Vereinbarung
36	VDA 26	6	Nachweis der Einhaltung gesetzlicher Forderungen
37	VDA 27	7	Materialdatenblatt per IMDS
38	VDA 28	8	Softwareprüfbericht
39	VDA 29	9	Prozess-FMEA
40	VDA 210	10	Prozessablaufdiagramm (Fertigungs- und Prüfschritte)
41	VDA 211	11	Produktionslenkungsplan (Control Plan)
42	VDA 212	12	Prozessfähigkeitsnachweise
43	VDA 213	13	Nachweis Absicherung besonderer Merkmale
44	VDA 214	14	Prüfmittelliste (produktspezifisch)
45	VDA 215	15	Prüfmittelfähigkeitsuntersuchung, wo angemessen (Ergebnis)
46	VDA 216	16	Werkzeugübersicht (mit Stückzahl/Anzahl Nester und Informationen zum Werkzeugkonzept
47	VDA 217	17	Nachweis für Erreichung der vereinbarten Kapazität (Prozessvalidierung)
48	VDA 218	18	Schriftliche Selbstbewertung der Kriterien gemäß Matrix Beurteilung Serienreife für Produkt und Prozess
49	VDA 219	19	Teilelebenslauf
50	VDA 220	20	Eignungsnachweis der eingesetzten Ladungsträger inkl. Lagerung
51	VDA 221	21	PPF Status Lieferkette (Zulieferteile, Setzteile und Hausteile
52	VDA 222	22	Freigabe von Beschichtungssystemen gemäß Kundenanforderungen

verbundene Zellen

B10:B27

B31:B52

verwendete Formeln
Zelle	Formel	Bereich	N/A
A10:A27	=$B$10&$C10
A31:A52	=$B$31&$C31

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

[atilla]

Hallo,

unten Deine Mappe mit funktionierendem Makro:


  Nach Dropdownauswahl Bereich kopieren.xlsm (Größe: 24,28 KB / Downloads: 6)

Es befindet sich nur folgender Code hinter Tabelle2:

Code:

Sub Auswahlbereich_kopieren()
 Range("A4").CurrentRegion.Clear
 x = ActiveSheet.Shapes(Application.Caller).DrawingObject.Value + 1
 With Sheets("Tabelle1")
   .Cells(Application.Match(Range("G" & x), .Columns("A"), 0), 1).CurrentRegion.Resize(, 3).Copy Range("A4")
 End With
End Sub

[Rabe]

Hi atilla,

unten Deine Mappe mit funktionierendem Makro:

wie würde das denn aussehen, wenn statt dem Steuerelement eine Datengültigkeit in A3 stehen würde?

[atilla]

Hallo Ralf,

Datengültigkeit sollte nicht in A3 stehen.
Zwischen dem Einfügebereich und der Datengültigkeitszelle sollte eine freie Zelle sein, da ich mit Currentregion arbeite. (ist einfacher zu programmieren)
Ich habe unten im Code die Zelle A2 vorgesehen.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count = 1 Then
    If Target.Address(0, 0) = "A2" Then
      If Target <> "" Then
        With Sheets("Tabelle1")
          Application.EnableEvents = False
          Range("A4").CurrentRegion.Clear
          .Cells(Application.Match(Target, .Columns("A"), 0), 1).CurrentRegion.Resize(, 3).Copy Range("A4")
          Target.Select   'Focus bleibt in der Zelle
          Application.EnableEvents = True
        End With
      End If
    End If
  End If
End Sub

[Rabe]

Hi,

Ich habe unten im Code die Zelle A2 vorgesehen.

super, so gefällt mir das.
Besser als mit dem Steuerelement.