If-sætning i forhold til denne value: #VÆRDI!

Sub xFind()
On Error Resume Next
For Each sh In ActiveWorkbook.Sheets
sh.Activate
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
For Each c In Selection
If IsError(c.Value) Then adresse = adresse & vbLf & ActiveSheet.Name & c.Address
Next
Next
MsgBox ("") & adresse
End Sub

Tak Excelent. Den er super.

Jeg har ikke defineret det godt nok. Jeg ved godt, hvor fejlene kan opstå (ca. 8-9 steder), i de respektive 300 Excelfiler.

Tanken var at checke de celler, hvor jeg ved at der givetvis er fejl og samtidig rette dem. som fx:

Sub FindFejl2()
Sheets("Ark1").Select
If IsError(Range("H905").Value) Then
MsgBox "Der er fejl i celle"
Else
MsgBox "Der er ikke fejl"
End If
End Sub

Det var funktionen 'IsError(c.value)' som gav resultat. Sætningen 'SpecialCells(xlcelltypeFormulas,16) - hvad betyder det reelt?

Men jeg vil benytte dit kodeforslag til en afsluttende kontrol. For den kører jo rimelig stærkt når man begrænser søgningen til relevante ark/områder. Dvs den kan sikre at der ikke er nye (ukendte) fejl af denne type.

Så det er alletiders. Læg et svar.

Nb. Det lykkes ikke med ændring af decimal-angivelse i udvalgt område. se evt. http://www.eksperten.dk/spm/806109

Det lykkes mig ikke at undgå at få dialogboksen frem (altså når der ikke er fejl):

.....
On Error Resume Next
For Each sh In ActiveWorkbook.Sheets
sh.Activate
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
For Each c In Selection
If IsError(c.Value) Then adresse = adresse & vbLf & ActiveSheet.Name & c.Address
Next
Next
MsgBox ("") & adresse
End Sub

Hvordan gør jeg det?

SpecialCells(xlcelltypeFormulas,16) markerer alle celler med fejl
min kode gennemløber derefter disse markerede celler og kun dem
Men koden som sådan retter ikke evt. fejl, den finder dem kun.

du kan også markere fejlceller uden VBA sådan :
tast F5 og vælg Speciel
marker Formler og fjern flueben i alle undtagen ved Fejl
Ok
så markeres alle evt. fejlceller.
------------------
Undgå dialogbox ved at tilføje følgende i linien med MsgBox
if adresse<>"" then MsgBox ("") & adresse
------------------
m.h.t. decimalsepperator : ja det ser desværre ud til
at det kun virker på hele projektmappen og ikke et område.
har ikke kunnet finde en løsning til dette.

Tusind tak.

Undgå dialogboks - jeg havde mellemrum mellem "" - sådan kan det gå. Tak.

Decimalseperator. Løsningen blev at jeg lavede en omfattende kode for hver enkelt celle som skulle være med "." Først kopiering til tekst, så højre/venstre/midt-funktioner afhængig af længden i cellen osv. Det virker - blot lidt besværligt.

Læg et svar.

ok