Zellen mit Formelfehlern leeren

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

243604    235504

Problem: Alle Zellen mit Formelfehlern sollen geleert werden.

StandardModule: Modul1

Sub DeleteErrors()
   Dim rng As Range
   Set rng = Tabelle1.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors)
   rng.ClearContents
End Sub
ClassModule: Tabelle2

Private Sub cmdHyperlink_Click()
   ActiveWorkbook.FollowHyperlink "http://www.excel-cd.de/i_bestellung.html", NewWindow:=True
End Sub