ich habe ein Makro geschrieben, das mit der allseits beliebten Excel-Funktion Sverweis einen Lieferstatus abruft. Leider ist die Laufzeit sehr lange, da ich jede Zelle mit 'Select' auswähle und anschließend den Sverweis in diese Zelle kopiere.
Hat jemand eine Idee, wie ich die Performance verbessern kann, weil ich zum einen Kaffee trinken gehen kann, während das Makro läuft und zum anderen stürzt es auf leistungschwächeren Rechnern ab?
Meine aktuellen Code-Zeilen sehen wie folgt aus:
Range("A5").Select
Do while ActiveCell ""
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP([@[tbl_Einkauf.Lieferant]],Tabelle_Beschaffung6[[ID]:[Lieferstatus]], _
3,FALSE),""n/a"")"
ActiveCell.Offset(1,0).Select
Loop