VBA mehrereZeilen in eine Zelle kopieren

Hallo,
ich habe zwei Excel-Dateien. Davon möchte ich, den Text aus Spalte G wo überall eine 0010 (Spalte E) ist in eine andere Excel-Datei kopiert wird. Dabei sollen die Zellen G2,G3 und G4 in eine Zelle zusammengefügt werden. Dies soll dann für jede Nummer erfolgen.
Also so sieht die eine Excel_Datei ungefähr aus:
Spalte E Spalte G
0010 TextBeispiel1
0010 TextBeispiel2
0010 TextBeispiel3
0020 TextBeispiel4
0020 TextBeispiel5
0030 TextBeispiel6
0030 TextBeispiel7
0030 TextBeispiel8
0030 TextBeispiel9
... ...
Also ich möchte eine Abhängigkeit der Ziffern zur jeweiligen Zelle erreichen. Und dies soll dann in eine andere Excel-Datei gepackt werden ab Spalte D33. Die Zahlen in Spalte E sind jedoch unregelmäßig, das heißt es gibt z.b. mal 3x die 0010 und 2x die 0020 usw..
Ich wollte das mit folgendem VBA Code lösen:
set wb = Workbooks("Template1.xlsm")
set ws = wb.Sheets("Register1")
set ws2 = set wb = Workbooks("Template2.xls").Worksheets("Register2")
ws2.Activate
iRow = ws.Cells(Rows.Count,2).End(x1Up).Row
iRow2 = ws2.Cells(Rows.Count,4).End(x1Up).Row
for cell = 33 to iRow
For IntSch = 2 To iRow2
If ws.Cells(cell,2).Value = ws2.Cells(IntSch,5).Value Then
ws.Range(ws.Cells(cell,4), ws.Cells(cell,4)).Value = ws2.Range(ws2.Cells(IntSch,7), ws2.Cells(IntSch,7)).Value
Else
End If
Next IntSch
Next cell
end sub
Das klappt zwar ganz gut, jedoch werden nicht alle Zeilen genommen, sondern immer nur die Letzte Zeile (wie unten fett markiert). Ich will jedoch, das z.b. die drei Zeilen von 0010 in eine Zelle überführt werden, sprich zusammenführen der Zellen. Hat jemand eine Ahnung wie ich das machen könnte? Vielleicht muss man ein Array einbauen?
Spalte E Spalte G
0010 TextBeispiel1
0010 TextBeispiel2
0010 TextBeispiel3
0020 TextBeispiel4
0020 TextBeispiel5
0030 TextBeispiel6
0030 TextBeispiel7
0030 TextBeispiel8
0030 TextBeispiel9
... ...
Vielen Dank erstmal

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
in dem Fall wäre das Dictionary der richtige Weg.
Ein Dicitionary ist im Prinzip ein eindimensionaels Array mit einem Freitext-Index.
dh es würde ein Array erstellt mit drei einträgen als Index ("0010", "0020", "0030") und als Wert könntest du zu jedem Index die Texte sammeln.
also als erstes Sammeln:

dim dic as Object
set dic = createobject("Scripting.Dictionary")
for IntSch = 2 to iRow2
dic(ws2.cells(Intsch, 4)) = dic(ws2.cells(Intsch, 4)) & "; " & ws2.cells(Intsch, 7)
next

und dann aus dem Dictionary in die andere Tabelle schreiben

for cell = 33 to iRow
ws.cells(cell, 4) = dic(ws.cells(cell, 2))
next

variablen, die du bereits verwendest, habe ich einfach übernommend, aber nicht zwingend deren Befüllung, dh das müsstest du in deinem Code noch ergänzen.
das schöne an der Methode ist, sie ist sehr schnell und es ist auch nicht erforderlich, dass deine Tabellen in irgendeiner Form sortiert sind.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

VBA mehrereZeilen in eine Zelle kopieren

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

344 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA mehrereZeilen in eine Zelle kopieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

344 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread