SpecialCells - runtime error 1004
08.03.2004 12:20:43
(eine andere) selma
ich weiß nicht, ob die frage schon mal kam, aber ich bin leider nicht fündig geworden.
mein problem ist, dass ich die zellen mit dem fehler #NV durch einen text ersetzen möchte. dazu habe ich bisher diesen code-abschnitt verwendet:
If IsEmpty(target.Range(actRange).CurrentRegion.SpecialCells(xlCellTypeFormulas, xlErrors)) <> True Then
target.Range(actRange).CurrentRegion.SpecialCells (Type:=xlCellTypeFormulas, Value:=xlErrors).Cells.Characters.Font.Bold = True
target.Range(actRange).CurrentRegion.SpecialCells( Type:=xlCellTypeFormulas, Value:=xlErrors).Value = "New Error?"
End If
die zellen, die durch diesen ausdruck behandelt werden sollen, haben durch vlookup verlinkte inhalte (daher auch der fehler #NV).
nun, bei mir kommt die fehlermeldung "No Cells were found!". das komische ist, dass dieses problem erst nach ein paar anwendungen aufgetreten ist. daher hatte ich versucht, es durch IsEmpty abzufangen, aber das klappt auch nicht, derselbe fehler tritt wieder auf.
ich würde mich sehr freuen, wenn mir jemand helfen kann! vielen dank!
gruß,
selma
Anzeige