Alle getallen in 1 x vervangen

[BOUKES]

Ik wil graag IN 1x ALLE getallen vervangen door bijvoorbeeld een x
Is daar een formule voor?

 

[VenA]

Dat kan eenvoudig met zoeken speciaal. <Ctrl> + g

 

[edmoor]

Of:

Sub Vervangen()
    For Each cl In Range("A1").CurrentRegion.SpecialCells(xlCellTypeConstants)
        If IsNumeric(cl.Value) Then cl.Value = "x"
    Next cl
End Sub

 

[VenA]

Dat kan ook zonder lusje

Sub VenA()
  Cells.SpecialCells(2, 1).Value = "x"
End Sub

 

[edmoor]

Yep, keurig

 

[garfield007]

Dat kan eenvoudig met zoeken speciaal. <Ctrl> + g

wat plaats je dan bij zoeken? om de getallen te zoeken
indien je uitvoert via zoeken en vervangen

 

[SjonR]

Na CTRL + G te hebben ingedrukt klik je op speciaal, dan op constanten en dan vink je alleen getallen aan ( de rest dus uit).

Dan worden alle cellen met een getal geselecteerd. Type vervolgens een X en bevestig met CTRL + ENTER.

 

[garfield007]

dank u wel voor de reactie;

maar ik krijg niet gewenste resultaat

groeten

 

[edmoor]

Even de uitleg van SjonR getest omdat ik dat ook niet wist.
Werkt perfect

 

[BOUKES]

Bedankt voor alle reacties

 

[garfield007]

Even de uitleg van SjonR getest omdat ik dat ook niet wist.
Werkt perfect

vreemd, ik doe iets verkeerd, en weet niet wat, enkel 2 getallen worden vervangen door X
waar typ jij de X in? daar loopt het verkeerd bij mij. ik wil iets bijleren

 

[edmoor]

Als je de instellingen in dat schermpje hebt gedaan klik je op Ok en sta je in de eerste cel die aan die instellingen voldoet.
Tik dan een x gevolgd door CTRL+Enter.

 

[snb]

Je heb toch niet toevallig vooraf een gebied geselekteerd ?

 

[edmoor]

Ook dan werkt het goed met de beschrijving van SjonR in #7.
Maar dan alleen voor het geselecteerde gebied uiteraard.

 

[garfield007]

hartelijk dank; het werkt idd nu
dank alvast voor deze tip

groeten