Cellen leeg maken die niet aan voorwaarde voldoet

[Peter2016]

Hallo,

Ik wil in kolom "AG", alle cellen leegmaken die niet voldoen aan de waarde uit cel "AG1" (deze is variabel) of met de tekst "Huidige status", met een if Then statment.
Wie kan me helpen?

gr
Peter

 

[SjonR]

Zo? Al twijfel ik of je de cellen met huidige status nou leeg wilt maken of niet. Deze doet dat niet!

Sub Peter2016()

SR = Range("AG20:AG200")

    For i = 1 To UBound(SR)
        If SR(i, 1) <> Range("AG1") And SR(i, 1) <> "Huidige Status" Then SR(i, 1) = ""
    Next i
    
Range("AG20:AG200") = SR
End Sub

 

[HSV]

Or

 

[SjonR]

bij Or gooit ie alles weg toch?

 

[HSV]

Was ik daar abuis?

Sub hsv()
 Range("ag20:ag200") = [if(ag20:ag200=ag1,ag20:ag200,if(ag20:ag200="Huidige Status",ag20:ag200,""))]
End Sub

 

[Peter2016]

Super heren, werkt!!
Mijn respect