Excel VBA Sverweis über mehrere Zeilen

[zindelino]

Hallo, ich bin gerade dran automatisch Daten in ein Excel File zu laden. Das reinladen funktioniert auch schon ganz gut in ein separates Tabellenblatt. Jetzt möchte ich per Sverweis die Daten aus dem separaten Tabellenblatt in meine richtige Tabelle einsortieren.

Hier ein Beispiel wie meine richtiges Tabellenblatt in etwa aussieht:

blabla	ID	blabla	Wert
blabla	001	blabla	WERT für ID001
blabla	002	blabla	WERT für ID002
blabla	003	blabla	WERT für ID003
blabla	004	blabla	WERT für ID004

Hier ein Beispiel wie das neu angelagte Tabellenblatt in etwa aussieht:

ID	Wert
003	WERT für ID003
001	WERT für ID001
002	WERT für ID002
004	WERT für ID004

Wie zu erkennen ist, ist die sortieren nicht passend, sodass ich per SVERWEIS die jeweiligen Werte zur ID suchen muss. Per Hand ist es auch kein Problem das mit einem SVERWEIS zuzuordnen. Ich bekomme es jedoch nicht hin, dass ich per VBA für jede Zeile den SVERWEIS eingetragen bekommen. Ich habe mir das was ich per Hand machen würde als Marko aufgezeichnet und da kommt das bei raus:

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],data1!C[-26]:C[-25],2,FALSE)"
Range("AA3").Select
Selection.FillDown

Damit schreibt er in AA3 auch den Sverweis erstmal rein, aber das runterziehen klappt offenbar nicht. Ich hatte auch schon versucht über Schleifen das ganze Zeile für Zeile einzutragen, aber dafür reichen meine VBA Kenntnisse auch nicht aus.

Kann hier evtl. jemand weiterhelfen?

 

[New-Bee]

ich mache so etwas immer mit Autofill.
Das steht dazu in meinem Notizbuch als Beispiel:

Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
Set fillRange = Worksheets("Sheet1").Range("A1:A20")
sourceRange.AutoFill Destination:=fillRange

 

[Fortatus]

Ich verstehe nicht, was du warum per VBA machen willst.

Sagen wir das erste Beispiel ist Blatt1, Spalten A bis D und die zweite Tabelle ist Blatt 2 mit Spalten A und B.

Dann fügst du in Blatt2 Zelle B1 folgendes ein:

=SVERWEIS(A1;Blatt1!$B$2:$B$5;Blatt1!$D$2:$D$5)

und kopierst du Formel per Doppelklick oder per Ziehen in die unteren Zellen.
(Disclaimer: Typos vorbehalten, habe gerade kein Excel zur Hand zum Testen)


Wenn du per VBA unbedingt auffüllen willst, dann so:

#Formel in AA3 kopieren
Range("AA3:AA99999").Select
Selection.FillDown

bzw. kürzer

#Formel in AA3 kopieren
Range("AA3:AA99999").FillDown

Du musst die gesamte Range auswählen, die aufgefüllt werden soll. Er nimmt dann das oberste Objekt und kopiert es in die gesamte Range.
Du füllst aktuell nur die eine Zelle AA3 mit dem eigenen Inhalt auf ergo: Es passiert nichts.

 

[steve1da]

@Fortatus Dein Sverweis ist völlig falsch
Die Syntax wäre:
=sverweis(A1;Blatt1!$B$2:$D$5;3;0)

 

[zindelino]

@Fortatus Vielen Dank. Das mit der Range war in der Tat mein Problem. Mit dienem letzten Stückchen Code passt es endlich.

Ich mache das per VBA, da ich einfach eine Schaltfläche drücken möchte, dann wird automatisch ein excel file eingelesen, in ein separates tabellenblatt kopiert und per sverweis die zuordnung zum standard hergestellt. So kann man viele excel files einlesen ohne überall händisch den sverweis reinmachen zu müssen

 

[zindelino]

Update: Ich bin damit jetzt schon deutlich weiter gekommen, aber vielleicht kann hier jemand nochmal kurz weiterhelfen. Das data1 im oberen beispiel war erstmal nur ein platzhalter. Da muss dynamisch eine variable eingetragen werden. Das habe ich mittlerweile auch hinbekommen. Folgendes Problem habe ich aber noch. Mit dem folgenden Code:

SheetName2 = "data" & Worksheets.Count & "!A:B"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-21], " & SheetName2 & ",2,FALSE)"

kommt in der Zelle dann leider eine Klammer um das B:

=SVERWEIS(E3; data2!AB);2;FALSCH)

Wenn ich SheetName2 im VBA überwache, steht da auch genau der Text der an die Vlookup funktion übergeben werden soll: "data2!A:B"

Weiß jemand wo die Klammer herkommt oder wie man die wegbekommt? Mit der klammer scheint der Sverweis nicht zu funktionieren.

Edit: habe es hiermit lösen können :

SheetName2 = "data" & Worksheets.Count & "!C[-25]:C[-24]"