cellen verwijderen die geen bedragen bevatten

[enrico85]

Hallo allemaal,

Weet iemand een code waarmee je de inhoud van cellen verwijderd in een bepaalde kolom die tekst bevat of gedeelte van tekst bevat? Zodat ik alleen cellen over hou met bedragen.

De cellen bevatten bijvoorbeeld:

kpl 344500/grb 123345
kpl 344500 / grb 123345
grootboek 443544
prijs

Dit moet dan allemaal verwijderd worden.

Hopelijk kunnen jullie me verder helpen.

groet
enrico

 

[HSV]

Test het in een testbestand.

sub hsv()
columns(1).specialcells(2,2).delete
end sub

 

[enrico85]

Hallo HSV,

Bedankt voor je code!!

Hij verwijderd inderdaad alles behalve de bedragen maar hij gaat wel de getallen naar boven verplaatsen.
Het is de bedoeling dat de bedragen in dezelfde cel blijven staan.

Weet je hoe de code dan aangepast moet worden?

gr enrico

 

[HSV]

'.clearcontents' ipv. 'delete'.

 

[enrico85]

Top, het werkt.

Bedankt HSV!

groet enrico