ich möchte folgendes umsetzen und benötige dazu die Hilfe der VBA-Experten unter euch.
In der Quelltabelle (Tabelle: "Liste") befinden sich Datensätze ab der Zeile 2. In der Spalte F befinden sich als Zelleinträge die Namen anderer Tabellen dieser Arbeitsmappe. Die Datensätze sind sortiert nach den Einträgen der Spalte F. Ich möchte nun die Spalten C, D und E der Tabelle "Liste" kopieren (im Beispiel gelb unterlegt) und in die jeweiligen Tabellen der Arbeitsmappe in die Spalten A bis C jeweils ab Zeile 5 (als Werte!!) einfügen.
Zur Veranschaulichung ein Auszug aus der Tabelle "Liste":
Tabelle1
C | D | E | F | |
1 | ||||
2 | xyz | xyz | 4 | Maier |
3 | xyz | xyz | 3,5 | Maier |
4 | xyz | xyz | 1,3 | Maier |
5 | xyz | xyz | 2,1 | Maier |
6 | xyz | xyz | 2 | Benz |
7 | xyz | xyz | 2,5 | Benz |
8 | xyz | xyz | 0,7 | Benz |
9 | xyz | xyz | 2,6 | Lehmann |
10 | xyz | xyz | 21 | Lehmann |
11 | xyz | xyz | 1,5 | Lehmann |
12 | xyz | xyz | 3,3 | Lehmann |
13 | xyz | xyz | 2 | Lehmann |
14 | xyz | xyz | 0,6 | Lehmann |
15 | xyz | xyz | 0,4 | Keller |
16 | xyz | xyz | 0,9 | Haller |
17 | xyz | xyz | 1 | Haller |
18 | xyz | xyz | 1 | Haller |
19 | xyz | xyz |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Zu beachten: In den Spalten C und D der Tabelle "Liste" sind Formeln enthalten, deren Ergebnis jeweils ein Textwert ist (im Beispiel mit xyz gekennzeichnet), die Zellen der Spalte E enthaltenen Zahlenwerte
Im vorliegenden Fall sollte der Code zunächst den Zellbereich C2:E5 kopieren und in die Tabelle "Maier" in den Bereich A5:C8 als Wert einfügen. Danach kopieren von C6:E8 und als Wert einfügen in die Tabelle "Benz" wieder beginnend in Zeile 5, also (Bereich A5:C7) usw.
Kopiert werden sollte die Zeilen des Bereichs der Tabelle "Liste bis zur Zeile, in denen in der Spalte F kein Eintrag mit einem "Tabellenname" der Arbeitsmappe mehr steht (im vorliegenden Fall sollte also der Bereich C2:E18 in vier verschiedene Tabellen (Tabellen mit der jeweiligen Bezeichnung aus Spalte F) als Wert eingefügt werden (beginnend jeweils in der Zelle A5 der jeweiligen Zieltabelle).
Zeile 19 der Quelltabelle soll nicht mehr kopiert werden (keine Einträge in den Spalten E und F, die Formeln in C19 und D19 liefern in diesem Fall auch das Ergebnis "").
Vielen Dank für eure Hilfe.
Gruß
Fritz