foutwaarde #WAARDE! verwijderen

[enrico85]

Hallo allemaal,

Met het doortrekken van de formule in een kolom neemt die een aantal extra lege regels mee. Waardoor die de foutwaarde "#WAARDE!" laat zien.

Deze wil ik eruit halen met een vba code. Ik heb geprobeerd een macro op te nemen met vervangen en dan krijg je de volgende code:

Sub Macro6()
'
' Macro6 Macro
'

'
    Cells.Select
    Range("A1").Activate
    Selection.Replace What:="#WAARDE!", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Helaas werkt dit zo niet.

Weet iemand hoe ik deze foutwaarde kan verwijderen of wat ik verkeerd doe bij het opnemen van deze macro?

Alvast bedankt voor het meedenken.

groet
enrico

 

[edmoor]

Die tekst staat ook niet in de cel, het is wat Excel toont als de formule een foutstatus oplevert.
Je kan dat beter in de formule zelf oplossen met ALS.FOUT of ALS(A1>"";Formule;"")

 

[enrico85]

Hallo edmoor,

Ik heb de kolommen gekopieerd naar waarden, dus het lijkt wel als tekst in de cel te staan. Als ik de functie vervangen handmatig uitvoer pakt die het wel.

Hoe zou ik dit in de formule moeten verwerken?

Ik gebruik de volgende 2 formules:

=rechts(A1;lengte(A1)-8)

=links(A1;8)

groet
enrico

 

[edmoor]

Zonder voorbeeld document kan ik er weinig over zeggen.

 

[enrico85]

Na wat proberen ben ik hierop uitgekomen:

als.fout(rechts(A1;lengte(A1)-8);"")

En het werkt!! Thanks.

Moet alleen nu nog iets verzinnen om automatisch de voet -en kopteksten te krijgen via vba code.
Met opnemen van een macro pakt die deze niet dan laat die een gedeelte wegvallen helaas.

Weet jij misschien hoe je dit kunt instellen met vba?

 

[edmoor]

Hier staat alles uitgelegd over headers en footers vanuit VBA:
https://support.microsoft.com/en-us/kb/142136

 

[OctaFish]

Ander onderwerp, andere vraag...

 

[VenA]

Om foutwaarden middels VBA te verwijderen kan je zoiets gebruiken.

Sub VenA()
On Error Resume Next
  Sheet1.UsedRange.SpecialCells(-4123, 16).Value = ""
End Sub

 

[enrico85]

Bedankt voor jullie reacties!

Vraag is opgelost.

groet
enrico