Op mijn vereniging heeft men een excel bestand met in 1 kolom een naam en
een getal er achter staan.
Nu wil men alleen dat getal verwijderen uit die kolom.
Het is nogal een groot bestand, dus hand matig duurt te lang.
Wie weet een oplossing?
gr,Gerrit
> gr,Gerrit
Geef eerst eens de opbouw van die naam en het getal: meerdere woorden?
getal met komma? spatie(s) er tussen?
Vaak kan je al veel bereiken met de optie 'Tekst naar kolommen'.
--
Vriendelijke groeten,
]-[oRus
www.lacrique.nl
Hoe is de naam opgebouwd, vaste lengte?
En de getallen, uit hoeveel cijfers bestaan die? en staan er in elke cel
evenveel cijfers achter de naam?
Geef eens een paar willekeurige voorbeelden van namen die in een cel staan.
Ik dacht aan het volgend:
Je zou m.i. een macro kunnen maken die in de gehele kolom zoekt naar
cijfers 0 t/m 9 en deze dan vervangt voor een spatie.
Deze macro zal je dan een aantal keren moeten laten draaien totdat alle
cijfers weg zijn.
Je zou het bestand kunnen opslaan als .csv en daarna openen met een
programma zoals notepad.
Met een betere zoals editpad, kan je dan getallen zoeken en vervangen door
niets of een spatie.
Daarna weer openen in excel.
gr,Gerrit
Ik zou de hele kolom selecteren en vervolgens ctrl+H (zoek en vervang doen)
10 keer doen..
0 = !, 1 = !, enz..... 9 = !.
daarna vervang je alle "!" door ""
gr.
Arnoud
> gr,Gerrit
> gr.
> Arnoud
...en waarom niet gelijk alle cijfers vervangen door ""?
--
Vriendelijke groeten,
]-[oRus
www.smallsystemservice.nl
"Gerrit" schreef in bericht
news:57649$4d872b30$4df954aa$13...@news.chello.nl...
Hallo,
gr,Gerrit
Genoemde oplossingen wilde niet lukken, waarschijnlijk doen we toch iets
niet goed.
Te weinig ervaring met excel denk ik.
men heeft het toch met de hand aangepast.
djw voor de antwoorden,Gerrit
"(on)wijs man" schreef in bericht
news:im8jlp$db7$1...@news.eternal-september.org...
gr,Gerrit
"bernie6" schreef in bericht news:ocYkp.2302$9z4....@newsfe14.ams2...
Hoi Gerrit,
Probeer deze macro eens het haalt de getallen voor een tekst weg.
Groet, Peter
Sub getalleneruit()
Dim r As Range
Dim i As Integer
Dim s As String
For Each r In Range("A1:A" & Range("A" &
Rows.Count).End(xlUp).Row)
s = r.Value
i = 1
Do While i < Len(s) And (IsNumeric(Mid(s, i, 1)) Or Mid(s, i,
1) = " ")
i = i + 1
Loop
r.Value = Left$(s, i - 1)
r.Offset(, 1).Value = Right$(s, Len(s) - i + 1)
Next
End Sub