Office: #NV ersetzen mit "Text" per VBA

Hallo,

in einer Spalte habe ich einige Zellen mit #NV beschrieben(als Wert und nicht als ergebniss einer Formel). Diesen Wert will ich ersetzen durch einen Text(ein Wort). Wenn ich die funktion Suchen und ersetzen gebrauche funktioniert es. Zeichne ich dies als Makro auf funktionert es nicht mehr. Es funktioniert nur wenn ich #NV ändere in '#NV, also ein hochkomma davorschreibe. Hat es etwas mit dem #-Zeichen zu tun das excel dies als Zahl oder Formel erkennt und VBa das nicht verarbeitet? Oder ist mein Makro falsch? Hab schon mehrere Sachen ausprobiert aber nix funtkioniert.


Cells.Replace What:="#NV", Replacement:="TEXT", LookAt:= _
xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=False

Vielen Dank für eure Hilfe.
MDK

 

Hallo!

Teste mal:

Code:

Sub Ersetze_NV()
Dim z As Range
For Each z In Range("A1:A999")
If IsError(z) Then If z = CVErr(xlErrNA) Then z = "Text"
Next z
End Sub

 

Funktioniert

Funktioniert EINWANDFREI....
VIELEN DANK für die superschnelle antwort...

Geht das denn auch statt A1 bis A999 zu sagen die ganze Spalte A oder von A1 bis zur letzten Zeile die in A beschrieben ist?
Ich weiss ist nur spielerei.. Aber ich bin neugierig.

Danke MDK

 

Hallo!

So geht's von A1 bis zur letzten beschriebenen Zelle in Spalte A:

Code:

Sub Ersetze_NV()
Dim z As Range, Letzte As Range
Set Letzte = Cells(Rows.Count, 1).End(xlUp)
For Each z In Range(Cells(1, 1), Letzte)
If IsError(z) Then If z = CVErr(xlErrNA) Then z = "Text"
Next z
End Sub

 

Tja was soll ich sagen...

Vielen Dank. und ein schönes Wochenende Schatzi.
MDK