Office: Excel - Makro fügt Zellinhalte aus anderer Datei hinzu - neue Loop

Hallo,

noch bin ich nicht wirklich fit in VBA, benutze aber ein Makro, dass anhand einer Artikel-Nr. in den Referenzspalten Zellinhalte von einer Datei in eine geöffnet kopiert mit "For - To - Next".
Jetzt benötige ich eine Schleife, um die Zellinhalte nicht nur dem ersten gefundenen Artikel-Nr. hinzuzufügen, sondern so oft wie der Artikel eben in der geöffneten Datei vorhanden ist - "Do While - Loop" ?

Code:

Sub Einheit()

Dim robj As Range

transferdatei = "C:\Data\TABL.xls"
referenzspaltehier = 2 ' Referenzwert für die Spalte in dieser Datei (also Spalte B)
referenzspalteda = 2 ' Wo sind die Werte in der anderen Datei zu finden (also Spalte B)
spalteda = Array(7) ' Welche Spalten sind zu kopieren (also Spalte G)
zeilenda = 1700 ' Anzahl vorhandener Zeilen in der anderen Datei
zeilenhier = 1700 ' Anzahl der Zeilen hier

Set hierdat = ActiveSheet
Set dadat = Application.Workbooks.Open(transferdatei)

For i = 1 To zeilenhier
t1 = hierdat.Cells(i, referenzspaltehier)
Set c = dadat.Worksheets(1).Range(Cells(1, referenzspalteda), _
Cells(zeilenda, referenzspalteda)).Find(t1, _
LookIn:=xlValues)
If (VarType(c) <> 9) Then
For j = 0 To UBound(spalteda)
hierdat.Cells(i, referenzspaltehier + 1 + j) = dadat.Worksheets(1).Cells(c.Row, spalteda(j))
Next j
dadat.Worksheets(1).Rows(c.Row).Select
Selection.Delete Shift:=xlUp
End If
Next i
dadat.Close
Set dadat = Nothing

End Sub

Bin für eure Tipps dankbar !!


Viele Grüße

Uli

 

Hmmm... Deine Frage ist etwas ungenau formuliert... Nehmen wir mal eine Liste von Artikeln an:

abc
bcd
cde
[...]
vwx
wxy
xyz
​

In welcher der beiden Listen, "hier" und "da", kann jetzt ein Artikel, z.B. "def", mehrmals auftauchen?

a) in "hier": Das sollte bereits mit der Schleife passieren. Taucht er in Zeile 17 auf, wird aus "da" rüberkopiert, in Zeile 498 aber auch. Sollte also kein Problem sein.

b) in "da": Ähm, ja, und was soll dann passieren? Das ".find" stoppt in Zeile 56 und kopiert den Kram rüber nach "hier". Dann wird weiter gesucht und das nächste mal in Zeile 264 gestoppt. Und dann? Wenn jetzt kopiert wird (und ggf. weitere male), dann hast Du als Ergebnis nicht mehr den 1. Treffer, sondern den letzten. Das macht die Sache auch nicht wirklich besser...

Willst Du ev. bei weiteren Treffern das bisher kopierte in irgendeiner Form (Addition?) mit dem weiteren Fund ergänzen?

Gruß, Michael