For Each Schleife Makro läuft nicht
03.02.2017 20:42:11
Mike
habe bei diesem Code ein Problem
zeile = wsXLSB.Cells(Rows.Count, 1).End(xlUp).Row
For Each b In Range("n2:n" & zeile)
If IsError(b) Then If b = CVErr(xlErrNA) Then b = "kein Bestand"
Next b
Dieser Code folgt nach der SVerweis Anweisung und sollen bei allen Zellen, die ein NV anzeigen durch kein Bestand ersetzt werden.
b is als Variable typ range deklariert.
Das Makro läuft ohne probleme durch aber das NV steht immer noch in den Zellen
Wo liegt der Fehler ?
Gruß Mike