Warum nicht gleich mit Formeln:
Worksheets("Grundliste").Range("K4:K8").Formula = "=VLOOKUP($D4, 'Datenbasis'!$A$1:$E$25, 3, FALSE)"
In K4 bis K8 stehen jetzt Formelausdrücke, welche dir ein Ergebnis liefern.
Wenn du jetzt nur die Ergebnisse der Formeln behalten willst, dann darunter noch:
Worksheets("Grundliste").Range("K4:K8").Value = Worksheets("Grundliste").Range("K4:K8").Value
Die Bereiche kannst du natürlich alle ermitteln und dir per Range.Address geben lassen - im Beispiel oben sind sie einfachheitshalber fest vorgegeben.
|