Gibt es eine Vorlage eines Makros, welches mir sämtliche Fehler (#NV, DIV/0 usw.) in einem Worksheet anzeigt? Kann jemand mal einen entsprechenden VBA-Code zur Verfügung stellen?
Besten Dank!
Sub test()
On Error Resume Next
Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeFormulas, xlErrors).Select
End Sub
Sub test()
On Error Resume Next
Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeFormulas, xlErrors).interior.colorindex = 2
End Sub
Auflisten der Zelladdressen:
Sub test()
dim i as long
dim Zelle as range
sheets("Tabelle2").columns(1).Clearcontents
On Error Resume Next
For each Zelle in Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
i = i + 1
Sheets("Tabelle2").Cells(i, 1).Value = Zelle.Address(0,0)
next
End Sub
gruß, Daniel
Sub test2()
Dim Rng As Range
On Error Resume Next
Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeFormulas, xlErrors).Interior.Color = _
vbYellow
For Each Rng In Worksheets("Tabelle1").Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Rng.Address(0, 0)
Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Rng.Text
Next
End Sub
Grüße Gerd