'Gesamte Spalte E durchgehen und jede Zelle mit der Kostenstellenverzeichnis vergleichen
For z = 0 To LetzteZeile1 - 1
ActiveCell.Offset(z, 1).Formula = "=(VLOOKUP(E" & z + 1 & ", [Kostenstellenverzeichnis.xls]gubr!B1:E" _
& LetzteZeile2 & ", 4, 0))"
Next z
Ergebnis erzeugt bekanntlich bei Fehler = #NV
Wollte dies jetzt mit Ergänzung der Formel (#NV sollte durch "Nicht vorhanden" ersetzt werden)bereinigen. Dies klappt jedoch nicht!!
'Gesamte Spalte E durchgehen und jede Zelle mit der Kostenstellenverzeichnis vergleichen
For z = 0 To LetzteZeile1 - 1
ActiveCell.Offset(z, 1).Formula = "=IF(ISERROR(VLOOKUP(E" & z + 1 & ", [Kostenstellenverzeichnis.xls]gubr!B1:E" _
& LetzteZeile2 & ", 4, 0)),""nicht vorhanden"",VLOOKUP(E" & z + 1 & ", [Kostenstellenverzeichnis.xls]gubr!B1:E" _
& LetzteZeile2 & ", 4, 0)),IF(ISERROR(VLOOKUP(E" & z + 1 & ", [Kostenstellenverzeichnis.xls]gubr!B1:E" _
& LetzteZeile2 & ", 4, 0)),""nicht vorhanden"",VLOOKUP(E" & z + 1 & ", [Kostenstellenverzeichnis.xls]gubr!B1:E" _
& LetzteZeile2 & ", 4, 0)))"
Next z
Womöglich sind die Klammern nicht richtig gesetzt oder die verflixten """" stimmen nicht.
Bin für jede Hilfe dankbar.
Gruß hariotfs