Sverweis durch Makro ersetzen
04.04.2019 10:31:32
Isabell
ich würde gerne einen Sverweis in Makro hinterlegen, komme aber mit meinem nicht vorhandenen VBA Wissen nicht weiter. Ich habe folgende Rahmenbedingungen:
Ich habe 29 Tabellenblätter, alle mit unterschiedlichen Bezeichnungen
Ich möchte in jedem Tabellenblatt ein und dasselbe Makro hinterlegen:
1) Gehe zu Spalte CW
2) Zeige mit der Filterfunktion nur beschriebene Zeilen in CW an (oder umgekehrt -> blende alle leeren Zeilen aus)
3) Gehe danach zu Spalte CU
4) In der Spalte CU in Zeile 2( das ist in allen Tabellenblättern immer die erste Zelle die nach dem Filtern(siehe Punkt 2)herauskommt) soll folgender Sverweis ausgeführt werden:
=SVERWEIS(A2;'Step 2'!A:B;2;FALSCH)
-> Step2 ist das Tabellenblatt aus dem ich meine Daten für den Sverweis holen will
5) Danach soll die Sverweis Formel für die noch anderen eingeblendeten Zeilen in CU ( siehe auch Punkt 2)) angewendet werden
6) Dieser Befehl soll auf alle 29 Tabellenblätter angewendet werden
Ich schaffe es leider nicht einen VBA Code daraus zu basteln, weil ich VBA nie gelernt habe, sondern alles auf gut Glück ausprobiere.
Wenn ich diesen Befehl wie oben beschrieben mit Makro für ein Tabellenblatt( in diesem Fall PM _ ) aufzeichne wird folgender Code aufgezeichnet
Sub TestNeu()
' TestNeu Makro
Sheets("PM").Select
ActiveSheet.Range("$A$1:$VE$2433").AutoFilter Field:=101, Criteria1:=""
Range("CU2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-98],'Step 2'!C[-98]:C[-97],2,FALSE)"
Range("CU2").Select
Selection.FillDown
End Sub
https://www.herber.de/bbs/user/128907.xlsx
Es wäre toll wenn mir jemand weitehelfen könnte.
Anbei auch ein