mit SpecialCells Fehler finden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: mit SpecialCells Fehler finden
von: Peter
Geschrieben am: 11.06.2015 11:58:10

Guten Tag
diesem


Sub wird ein bestimmter Range übergeben - in einer der Zellen steht #WERT! (als String und  _
nicht als Formelergebnis)
Ich verstehe nicht, weshalb ich als Ergebnis keine msgbox mit der Ausgabe von 1 erhalte ( _
anstelle dessen wird die Range Adresse ausgegeben)

Sub ZaehlenFehler(rng As Range)
'Dim Bereich As Range
'Set Bereich = rng
On Error GoTo NichtsGefunden
MsgBox rng.Cells.SpecialCells(xlCellTypeAllFormatConditions, 16).Count
Exit Sub
NichtsGefunden:
'MsgBox "Keine Zellen mit Fehlerwerten gefunden."
Debug.Print rng.Address
End Sub

Bild

Betrifft: AW: mit SpecialCells Fehler finden
von: UweD
Geschrieben am: 11.06.2015 12:13:36
Hallo
du hast es doch schon richtig erkannt.
als String und _
nicht als Formelergebnis

also musst du auch nach CONSTANTEN suchen
so gehts..
MsgBox rng.SpecialCells(xlCellTypeConstants, 16).Count
Gruß UweD

Bild

Betrifft: AW: mit SpecialCells Fehler finden
von: Peter
Geschrieben am: 11.06.2015 12:15:19
Hallo Uwe
Danke - jetzt funktionierts.
Ich dachte mit xlCellTypeAllFormatConditions würde alle Varianten gehen ...
Gruss, Peter

 Bild

Beiträge aus den Excel-Beispielen zum Thema "mit SpecialCells Fehler finden"