ich habe zwei Dateien:
1.Quelldatei mit Artikelnummern in Spalte A und Preisen zu jedem Artikel
2.Zieldatei mit Artikelnummern in Spalte A und leeren Spalten rechts daneben
Ich möchte jetzt in die Zieldatei (mit unterschiedlich vielen Tabellenblättern)
die Daten aus der Quelldatei dazulesen (rechtsneben die Artikelnummer)
(Nicht mit sverweis, da die Datei sonst irregroß wird)
Ich hab`s innerhalb einer Datei bereits geschafft, aber
1. nicht wenn das ganze in zwei .xls Dateien steht.
2. nicht wenn die Anzahl Tabellenblätter variieren
ich bräuchte da irgendeine vba-syntax die "for each worksheet...oder so"
alle Tabellenblätter der Zieldatei durchwühlt und sucht ob die Artikelnummern in der Quelldatei vorhanden sind, und wenn ja, die Zeile mit den Preisen rüberzieht.
Hier mal mein bisheriger Stand den ich auch schon aus dem Forum abgespickt habe:
Sub vergleichenKopieren()
' vergleichenKopieren Makro
Dim rng As Range
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Set rng = Worksheets("Tabelle2").Columns(1).Find(what:=Cells(iRow, 1), lookat:=xlWhole, LookIn:=xlValue)
If Not rng Is Nothing Then
Range(rng.Offset(0, 4), rng.Offset(0, 21)).Value = Range(Cells(iRow, 10), Cells(iRow, 29)).Value
End If
iRow = iRow + 1
Loop
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Set rng = Worksheets("Tabelle3").Columns(1).Find(what:=Cells(iRow, 1), lookat:=xlWhole, LookIn:=xlValue)
If Not rng Is Nothing Then
Range(rng.Offset(0, 4), rng.Offset(0, 21)).Value = Range(Cells(iRow, 10), Cells(iRow, 29)).Value
End If
iRow = iRow + 1
Loop
End Sub
Hier der Link zur Datei:https://www.herber.de/bbs/user/6446.xls
Vielen Dank für Eure Mühe ich schaff`s leider nicht selbst !
Stefan