Code kürzen / vereinfachen
06.05.2019 07:35:08
Dirk
Ich habe ein Datenblatt, in dem ich mehrere Spalten mit Sverweisen versehen muss. Ich habe mein Makro teilweise mit Makrorekorder erstellt. Vereinfacht in folgenden Schritten:
1. Datenblattlänge ermitteln
2. Sverweis in erste Datenzelle einfügen
3. Mit Doppelklick/Autofill die Formel zum Listenende kopieren
4. Bereich markieren und Werte kopieren und Inhalte einfügen
Also so:
Range("F2").FormulaR1C1 = _
"=VLOOKUP(RC[-5]&RC[-4],KST!C1:C4,4,FALSE)"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F" & AnzahlZeilen)
Range("F2:F" & AnzahlZeilen).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Mir erscheint das etwas kompliziert und speicherintensiv, denn das mache ich in mehreren Spalten. Ist das so? Wenn ja, kann man das vereinfachen?
Vielen Dank!
Gruß
Dirk