cijfers & letters

[marina_peter]

Hallo excel fanaten

Bijgaand een bestandje met een kolom waarin in een cel zowel een letter als cijfers voor kunnen komen. Is het mogelijk om in een keer alle letters uit elke cel te verwijderen. In de kolom mogen dus alleen nog maar cijfers staan.
Zoek en vervang is niet echt een optie omdat je dan alle letters van het alfabet af moet.....

Ik ben benieuwd.
Peter

 

[marina_peter]

cijfers en letters

Nu met bestandje

 

[Ingrid B]

Plaats in een extra kolom volgende formule:

=ALS(ISGETAL(A1);A1;"")

voer de formule door tot het einde van de lijst.

Kopieer vervolgens deze kolom
ga naar Bewerken/Plakken speciaal
en kies hier de optie Waarden.

Je kan de oorspronkelijke kolom nu verwijderen.

 

[marina_peter]

cijfers en letter

Beste Ingrid

Dank voor je reactie.

Ik heb je formule ingevoerd zoals omschreven. De cel waarin de waarde moet komen blijft echter leeg.
Ik weet niet of je mijn bestandje hebt gebruikt om e.e.a. te testen.....zo ja, dan zou je het eens kunnen posten svp.

Peter

 

[Ingrid B]

Ik heb niet de nodige software om een rar-file te openen, dus ik ben enkel voortgegaan op je uitleg.

Staan de gegevens in kolom A? Zo niet, heb je dan de celverwijzingen in de gegevens formule aangepast?

 

[marina_peter]

cijfers en letter

Ingrid

Het bestand ziet er als volgt uit:
L9101
15F05
35F01
50F03
15F04
40F10
20F03
30F06
55F06
45F10
30F02
13J20
40F10
65F09
Deze gegevens staan in kolom A. Jou formule verwijst daar ook naar. Zoals je ziet komen verschillende letters voor op verschillende posities. De bedoeling is dus de letters ineen keer te verwijderen.

dank en groet
Peter

 

[jzeedijk]

Hoi Peter,

Bedankt voor je uitleg.

De formule voor de eerste 2 cijfers (de rest kan je zelf wel verzinnen):
=WAARDE(ALS(ISFOUT(WAARDE(DEEL(A1;1;1)));"";DEEL(A1;1;1))&ALS(ISFOUT(WAARDE(DEEL(A1;2;1)));"";DEEL(A1;2;1)))

Jeroen

 

[Jan van Asseldonk]

Hoi Peter,

met bijgaande macro haal je alle letters uit de gegevens in kolom A.
De macro begint in Cel A3 en loopt door totdat er een cel gevonden wordt in kolom A waar niets instaat.
De waarden zonder letters worden in kolom B geplaatst.

Sub VerwijderLetters()
'
' VerwijderLetters Macro

'
Dim i As Integer

'
Range("A3").Select
While ActiveCell.Formula <> ""
w = ""
For i = 1 To Len(ActiveCell.Formula)
If Asc(Mid(ActiveCell, i, 1)) < 58 And Asc(Mid(ActiveCell, i, 1)) > 47 Then
w = w & Mid(ActiveCell, i, 1)
End If
Next
ActiveCell.Offset(0, 1).Formula = w
ActiveCell.Offset(1, 0).Select
Wend
Range("B3").Select
End Sub

 

[marina_peter]

cijfers en letter

Jan (en uiteraard ook andere forummers)

Je macro werkt!
Hartelijk dank voor jullie medewerking :thumb:

Peter