Geimporteerd bestand cel is niet leeg

[ce123]

Mensen,

Voor jullie waarschijnljk een appeltje eitje maar ik kom er even niet uit. In de bijlage vind je een testbestand.
de rood gemarkeerde cel (b9) is in mijn andere (originele) bestand gevuld met een spatie. Als ik daar formules op los laat dan geeft hij bij uitkomst "WAARDE" op. Nu kan ik handmatig de inhoud van de cel leegmaken door op de rechtermuisknop te drukken maar dat wil ik automatisch met een macro doen. De macro moet van alle lege cellen die in kolom B staan de inhoud wissen zodat ik geen foutmeldingen meer krijg als ik daar formules op los laat.

In het testbestand zie je welke formules ik gebruik. Maar in het originele bestand krijg ik bij D9 de foutmelding WAARDE.
Mijn vraag is dan ook. welke macro kan ik hiervoor gebruiken?

onderstaande macro's heb ik heb ik van het forum afgehaald en geprobeerd, maar werken niet.

bedankt voor de moeiteBekijk bijlage testbestand.xls

Sub Inhoudwissen()
'
' Inhoudwissen Macro
' legen cellen inhoud wissen
'

'
Range("q2").Select
For Each cell In Columns("q:q")
'If cell = "" Then
'If Range("D1") = 1 Then cell.Delete Shift:=xlUp
'If Range("D1") = 2 Then cell.Delete Shift:=xlToLeft
If Range("q2") = "" Then cell.ClearContents
'If Range("D1") = 4 Then Rows(cell.Row).Delete
'End If
Next cell


End Sub
Sub tst()
For i = [q2].CurrentRegion.Rows.Count To 1 Step -1
If Range("A" & i).Value = "" Then
Range("A" & i).cell.ClearContents
End If
Next
End Sub
Sub tstt()
With Sheets("dgb0906pr") ' vul hier de juiste bladnaam in
For i = .UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountQ(.Rows(i)) = 0 Then
.Rows(i).cell.ClearContents
End If
Next
End With
End Sub

 

[richard1970]

Hoi

In jouw bestand staat ascii-code 32. Als je de functie:

=code(B9)

gebruikt, wordt 32 getoond. Deze code staat voor een spatie.
Voeg in je code daarom toe:

If Range("q2") = " " Then cell.ClearContents

Al kan dat fout zijn want ik ben niet goed in VBA. Anderen hier weer wel.

Richard

 

[ce123]

Ik heb de oplossing al gevonden

Ik heb de oplossing al gevonden. vraag is opgelost.