ich die folgende Zeile bin mit aus einem Arbeitsblatt all # N/A Fehler zu entfernen:VBA-Code # N/A Fehler aus einem Arbeitsblatt zu entfernen, wenn es welche gibt
Cells.SpecialCells(xlCellTypeFormulas, xlErrors).Clear
Wie kann ich es nachvollziehen in gewisser Weise versucht es nur, # N/A Fehler zu entfernen, wenn es welche gibt (weil es nicht in jedem Fall gibt und ich einen Fehler bekomme).
Vielen Dank für Ihre Hilfe!
Der beste Weg, die von einem Land Meile ist eine zusätzliche Fläche auf dem Arbeitsblatt (oder sogar ein anderes Arbeitsblatt), und verwenden Sie die Formel
=IFNA(A1, "")
oder die äquivalent
=IF(ISNA(A1), "", A1)
(Kopieren zu definieren offensichtlich).
Auf diese Weise ruinieren Sie nicht die Struktur Ihres Arbeitsblatts, und eine zellenweise Konvertierung könnte Probleme im Berechnungszyklus verursachen, da # N/A dazu neigt, in integrierten Excel-Funktionen zu propagieren. mit dem Code des Formulars
Aber, wenn Sie Muss Verwendung VBA aus irgendeinem Grund, dann können Sie die spezifischen # N/A Fehler erkennen
If v = CVErr(xlErrNA)
Wo v ist ein Variant den Zellenwert enthält, Das wurde bereits als ein Fehlerwert festgestellt.
Falle der Fehler wie folgt aus:
Dim rngToFind As Range
On Error Resume Next
Set rngToFind = Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
On Error GoTo 0
If Not rngToFind Is Nothing Then
rngToFind.Clear
End If
Wenn Sie einen bestimmten Fehlertyp hinzufügen möchten, wie #N/A, könnten Sie dies tun:
Dim rngToFind As Range, PossError As Range
On Error Resume Next
Set rngToFind = Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
On Error GoTo 0
If Not rngToFind Is Nothing Then
For Each PossError In rngToFind
If PossError.Text = "#N/A" Then PossError.Clear
Next
End If