Dringend VBA Lösung gesucht!!!

Hallo Excel-Freunde,
dringend Hilfe gesucht!!!
Folgendes Problem liegt mir vor, welches wohl am einfachsten mit einer VBA Programmierung zu lösen ist. Leider kenne ich mich mit VBA nicht aus und bräuchte deshalb dringend eure Hilfe. Kennt jemand für dieses Problem die entsprechende VBA Lösung?
Ich möchte eine Tabelle erstellen. Die Daten für die Tabelle sollen aus zwei unterschiedlichen Tabellenblättern (Tabelle P und Tabelle M) bezogen werden. Die Daten aus den beiden Tabellen haben dieselbe Referenznummer. Einzig die dahinterstehenden Daten unterscheiden sich. Zusätzlich ist es der Fall, dass in Tabelle P die Referenznummer immer nur einmal vorkommt. In Tabelle M bestehen allerdings mehrere Zeilen mit derselben Referenznummer, jedoch unterschiedliche Daten die dahinterstehen.
Nun soll eine Tabelle generiert werden, welche anhand der Referenznummer die Daten aus Tabelle P und Tabelle M die jeweils dahinterstehenden Daten in einer Zeile in der neuen Tabelle wiedergibt. Da allerdings in Tabelle M mehrere Zeilen mit derselben Referenznummer bestehen, müsste dafür die entsprechende Anzahl von Zeilen in der neuen Tabelle generiert und die Daten an dieser Stelle wiedergegeben werden.
Vielen Dank im Voraus!!!
Viele Grüße
userM
Beispiel: So soll die Tabelle aussehen.
https://www.herber.de/bbs/user/75691.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub tabellen_zusammenfassen() Dim refNr, sNr, lZeile lZeile = ActiveWorkbook.Sheets(3).Range("A65356").End(xlUp).Row ActiveWorkbook.Sheets(3).Range("A1:E1") = Array("Daten", "Datum", "Bez.", "Datum", "Bez") For Each refNr In ActiveWorkbook.Sheets(1).Range("A:A") If refNr &lt&gt "" And refNr.Row &gt 1 Then ActiveWorkbook.Sheets(3).Cells(lZeile + 1, 1) = refNr.Value ActiveWorkbook.Sheets(3).Cells(lZeile + 1, 2) = refNr.Offset(0, 1) ActiveWorkbook.Sheets(3).Cells(lZeile + 1, 3) = refNr.Offset(0, 2) For Each sNr In ActiveWorkbook.Sheets(2).Range("A:A") If refNr = sNr Then 'ActiveWorkbook.Sheets(3).Cells(lZeile + 1, 1) = sNr.Value ActiveWorkbook.Sheets(3).Cells(lZeile + 1, 4) = sNr.Offset(0, 1) ActiveWorkbook.Sheets(3).Cells(lZeile + 1, 5) = sNr.Offset(0, 2) lZeile = lZeile + 1 End If Next lZeile = lZeile + 1 End If Next End Sub

Hi Username,
"wohl am einfachsten mit einer VBA Programmierung zu lösen" ist diese Aufgabe wohl nicht.
Bei "Excel gut - VBA bescheiden" würde ich eine m. E. recht einfache Formellösung bevorzugen:

	A	B	C	D	E	F	G	H	I
1		Daten aus Tabelle P		Daten aus Tabelle M			Referenznr.	Datum	Bez.
2	Referenznr.	Datum	Bez.	Datum	Bez.		2222	40707	CC
3	2222	01.05.2011	AA	13.06.2011	CC		2222	40666	BB
4				03.05.2011	BB		2323	40735	EE
5	2323	09.07.2011	DD	11.07.2011	EE
6						von Tab M hierher kopiert und sortiert nach Referenznr.

Formeln der Tabelle

Zelle	Formel
A3	=WENN(G1=G2;"";G2)
B3	=WENN(ISTZAHL(VERGLEICH($A3;'Tabelle P'!$A$2:$A$9999;0)); SVERWEIS($A3;'Tabelle P'!$A$2:$C$9999;2;0); "")
C3	=WENN(ISTZAHL(VERGLEICH($A3;'Tabelle P'!$A$2:$A$9999;0)); SVERWEIS($A3;'Tabelle P'!$A$2:$C$9999;3;0); "")
D3	=H2
E3	=I2

Voerausgesetzt ist dabei, dass in Tab P in Zeile 1 Überschriften stehen, in Spalte A die Ref.-Nr. und in B und C die Daten.
(Den Aufbau der Quelltabellen hast du uns nicht verraten...)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread