Hallo zusammen!
Ich möchte mit einem Makro einen sverweis in jede Zelle einer range einfügen, allerdings nur dann, wenn der sverweis einen Wert (also nicht #NV oder „“) liefert. Also im Prinzip geht es darum, dass das Makro erst das Ergebnis prüft, bevor es die Formel einfügt.
Hintergrund ist folgender: In der Datei, in welche das Makro soll, werden alle Projekte, die in einem Jahr laufen oder gelaufen sind gepflegt. Die Datei, auf welche der sverweis verweist, ist ein Export aus einer anderen Anwendung und enthält nur Projekte, die aktuell noch laufen. Daten von Projekten, die in diesem Jahr beendet wurden sind also nicht mehr enthalten.
Hier noch mein derzeitiger Code von den sverweis in gekürzter Form (sind sonst noch eine iserror- und eine weitere wenn-Funktion enthalten):
Set ende = Range("b65536").End(xlUp)
Sheets("Blatt1").Select
Range("ah5", "Ah" & ende.Row).Select
Selection.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-32],[Excel1.xls]Data1!C1:C2,2,FALSE))=TRUE ,"""", VLOOKUP(RC[-32],[Excel1.xls]Data1!C1:C2,2,FALSE))"
Range("AH5").Select
Vielen Dank schon mal!