Office: Fehlercodes (z.B. #Bezug) mit VBA auslesen ?

Hallo

Ich habe vor eine Spalte mittels VBA in einem Loop zu durchlaufen
und alle Zeilen mit einem Fehlercode (#Bezug) zu löschen.
Nun habe ich das Problem, dass ich einfach nicht rausfinde, wie
ich die Zelle mit dem Fehlercode auslesen kann. bzw. was diese
genau für einen Inhalt hat. Im VBA Editor im Debug-Modus, wenn
ich mit der Maus über den Befehl "ActiveCell.Value" fahre lese ich den Wert:

= Fehler 2023

Nur was für eine Art Inhalt ist das nun ?? Ein String ist es nicht.
Das heisst, wenn ich z.B. per IF checken will, ob nun Fehler 2023
drinsteht, erscheint die Fehlermeldung "Typen unverträglich"

Habt Ihr mir einen Tipp, wie ich die Zelle korrekt auslesen bzw. vergleichen kann ?

Ich habe schon an Workarounds gedacht, eine Zusatzspalte mit der Formel ISTFEHLER anzulegen und dann dort zu checken ob diese Zelle auf "wahr" steht, ist aber schon sehr umständlich oder ? Da gibt es doch bestimmt eine elegantere Lösung *wink.gif*

Cheers

keystroke

:)

 

Hi,

du kannst per
IsError(Cells(Zeile,Spalte))
prüfen, ob die Zelle einen Fehler liefert. Liefert True bei Fehler.

Die Adressierungsmethode ist je nach Bedarf anzupassen.

CU

Johannes

 

Moin, keystroke & Johannes,

ich würde keine Schleife verwenden, sondern z.B. Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents - damit ist dann der Inhalt aller Fehlerzellen auf einen Schlag weg. Ob das allerdings so gut ist... *wink.gif*
Ansonsten kann man Fehlernummern (wenn man sie denn weiß und vor allem, wenn man weiß, warum sie erscheinen) entweder über die Err.Number abfragen oder einen Vergleich auf 0 durchführen lassen. Mir wäre die Angabe "Es ist ein Fehler vorhanden" nicht aussagekräftig genug. Dies bezieht sich aber mehr auf den Ablauf im VBA-Code als auf Tabellenzellen. Dort gibt es AFAIR einen Fehler, den man nicht durch eine "Behandlung" abfangen kann: das Löschen eines Namens.

 

Moin jinx,

bevor ich geantwortet habe, habe ich auch versucht, gleich noch die Fehlernummer zu ermitteln. Ich habe allerdings keinen Weg gefunden (XL97).

Wie funktioniert denn Err.Number bei Tabellenfehlern? Ich kannte das Err-Objekt bislang ausschließlich bei VBA-Fehlern.

Iserror erkennt auch den #Name? Fehler.

CU

Johannes

 

Versuch es mal hiermit:

filename = "mappe01.xls"
sheetname = "Tabelle1"
start = 3
Wert = 1

Do
Wert = Workbooks(filename).Sheets(sheetname).Range("B" & start)
start = start + 1

Loop Until Wert = "'#BEZUG"

Range("B" & start).select
selection.clearcontents o.ä. ...

und dann dadrumm noich eine schleife... z.b.
Loop Until Wert = "FESTGELEGTE MARKE VON DIR"

was dann in einer zelle steht wo du es reinschreibst...

 

Moin, Johannes,

klingt wieder mal sehr blöd, aber man kann doch per VBA auf den Zelleinhalt zugreifen und dann auswerten:

Code:

 

N'Abend jinx,

CVErr war das Zauberwort, das mir gefehlt hat.

Merci vielmals

Johannes