Genauer gesagt möchte ich in einer Spalte nach dem Wert #NV suchen und diesen löschen, bis das Tabellenblatt "bereinigt" ist. Vielen Dank
Sub FehlerLoeschen()
'Zellen mit Fehlerwert #NV finden und Zellinhalt löschen
Dim wks As Worksheet, Zelle As Range, Bereich As Range, Spalte
Set wks = ActiveSheet
Spalte = 3 'Spalte C
With wks
Set Bereich = .Range(.Cells(1, Spalte), .Cells(.Rows.Count, Spalte).End(xlUp))
For Each Zelle In Bereich
If Application.WorksheetFunction.IsNA(Zelle.Value) Then
Zelle.ClearContents
End If
Next
End With
End Sub
Sub Fehler_weg()
'Fehler, verursacht durch Formel:
Range("A:A").Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents
'Fehler, verursacht durch Eingabe in Zelle:
'Range("A:A").Cells.SpecialCells(xlCellTypeConstants, 16).ClearContents
End Sub
Grüße