Fjerne fejl meddelelsen #I/T ved hjælp af VBA

stil dig påarket og kør denne makro

Sub RemoveErrs()
Dim c As Range

For Each c In Range("G3:R416")
    If IsError(c) Then c.Value = 0
Next
End Sub

Er det ikke bedre at checke vedå opslaget om værdien du henter er uden fejl, jeg går ud fra at opslagene som ligger i området g3:r416 skal bruges igen.
=HVIS(ER.FEJL(LOPSLAG(g3;$F$1:$G$8;2;FALSK));0;LOPSLAG(g3;$F$1:$G$8;2;FALSK))

Hejsa...

Ja, det virker jo rimelig enkelt, når man ved hvad der skrives :-) Jeg er super taknemmelig for svaret bak, det virker efter hensigten.

Tobler, tak for dit bud også. Du kunne have haft en meget reel pointe, men da jeg faktisk går ind og fjerne alle formler alligevel (grundet dataens indlæggelse i ERP), så er det faktisk ikke nødvendigt at bruge formlerne igen. Men tak alligevel, jeg har ikke tidligere brugt funktionen "ER.FEJL", men den kan nok blive anvendelig senere.

Jeg er en glad mand :-)

Hvad angår point, så har jeg ikke anvendt sinden anden en gang tidligere, og der var kun en der svarede. Giver man point for gode pointer - eller kun for det svar der bliver anvendt? En fordeling kunne måske være 80/20 Bak/Tobler - hvordan lyder det? Jeg ved heller ikke rigtig hvordan jeg skal give jer point...men det bliver jeg måske promtet for automatisk?

Du kan først gi' os point, når vi har lagt et svar. Normalt bli'r alle løsningsforslag leveret som kommentarer, indtil spørgeren be'r om et svar. Når bak også har lagt et svar, kan acceptere svarene og fordele points.

Modtaget - jeg giver point, når bak har lagt svar.

Tak igen

Her er et svar og en smule mere kode.
Når jeg har oprettet en samling formler i et regneark og ønsker at koble en fejlfager på dem alle, markerer jeg dem og kører jeg gerne denne makro, der automatisk laver formlen om til en formel som Toblers...

Sub ErrorTrapAdd()
    Dim myStr As String
    Dim cel As Range
    For Each cel In Selection
        If cel.HasFormula = True Then
            If Not cel.Formula Like "=IF(ISERROR*" Then
                myStr = Right(cel.Formula, Len(cel.Formula) - 1)
                cel.Value = "=IF(ISERROR(" & myStr & "),""""," & myStr & ")"
            End If
        End If
    Next
End Sub

---> bak, den er smart! Den idé bli'r straks kopieret;-))