|
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
|