Hallo Leute!
Ich bin Anfängerin was VBA angeht und sitze seit mind. einem Tag an dem Code. Ich habe schon alles mögliche gegoogelt und versucht, leider bisher erfolglos...es kommen immer wieder Fehlermeldungen. Also versuche ich es hier...
Ich versuche von der Tabelle3 =t3 in die Tabelle1=t1 Werte rein zu kopieren. Wie sverweis. Es hat auch schon mal geklappt. Dabei bekam ich aber ein anderes Problem. Beide Tabellen werden täglich erweitert. Meine Schleife fing immer wieder von Anfang an und deshalb kam es zu deutlichen Verzögerungen. Deshalb habe ich versucht es so anzupassen, dass es nicht immer von Anfang an die Daten vergleicht sondern ab der 3 beschriebenen Zeile von unten in Spalte G.
Alleine komme ich leider nicht drauf, bitte um Hilfe!
'Übernehme die Menge aus der Tabelle 3 in die Tabelle 1
Dim rngQuelle As Range
Dim rngZiel As Range
Dim g As Integer
g = t1.Cells(Rows.Count, 7).End(xlUp).Row - 3
Dim m As Integer
m = t3.Cells(Rows.Count, 6).End(xlUp).Row - 1
Do While t3.Cells(m, 6) <> ""
With t1
For Each rngZiel In .Range(.Cells(7, g) & .Cells(.Rows.Count, 2).End(xlUp).Row)
On Error Resume Next
Set rngQuelle = t3.Range("D:D").Find(What:=rngZiel, LookAt:=xlPart)
On Error GoTo 0
If Not rngQuelle Is Nothing Then
rngQuelle.Offset(0, 2).Resize(m, 3).Copy
rngZiel.Offset(0, 4).Resize(m, 3).PasteSpecial
End If
Next rngZiel
Exit Do
End With
Loop
Danke!
|