Alleen cijfers uit een cel overzetten

[RolfGerrits]

Hallo,

ik wil graag alleen de cijfers uit een reeks overzetten naar een nieuwe cel. De reeks bestaat uit vier of vijf cijfers met daarachter wel of geen letter. Hiervan wil ik alleen de cijfers in een cel hebben.

Groeten,
Rolf

 

[rebmog]

Test deze functie eens:

=ALS(ISGETAL(RECHTS(A2;1)*1);A2;LINKS(A2;LENGTE(A2)-1))

 

[Cobbe]

Voor het geval dat je gegevens meer dan 1 teken zouden kunnen bevatten.

 

[snb]

het gemakkelijkst met een udf:

Function F_snb(c00)
  F_snb=val(c00)
End Function

 

[RolfGerrits]

En in een macro?

En hoe krijg ik dit in een macro gestopt?

Wat is trouwens een UDF?

 

[Cobbe]

Een UDF is een user Definition Function - een door de gebruiker zelf gedifiniëerde functie.

Stop deze macro in een module en selecteer de kolom met gegevens die omgezet moeten worden:

Sub cobbe()
Dim cl As Range
For Each cl In Selection
 cl = Val(cl)
Next
End Sub