• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Uit tekst met getallen de getallen eruit halen

Status
Niet open voor verdere reacties.
K

KrisVanIsveldt

Gebruiker
Lid geworden
28 feb 2005
Berichten
26
Haai allemaal :)

Kan er mij iemand vertellen hoe ik, bv. uit de tekst "68 keer kijken 100" (raar voorbeeld) of de tekst "68 x 100", de getallen 68 en de 100 eruit haal?

De formules met 'links' en 'rechts' en 'lengte' voldoen niet omdat dan zoveel tekens worden gewist als jij opgeeft en niet tot aan het betreffende getal. Bij wijze van spreken kan die 100 evengoed 10000000 zijn. Snappie?

Iemand een oplossing of andere suggesties?

Thx anyway!!!;)
 
mja... dat gaat je dus niet lukken. Je zou ook nog een =DEEL formule kunnen gebruiken, maar dat werkt ongeveer hetzelfde als LINKS en RECHTS. Je moet dus het aantal karakters en hun positie in de text weten om dat getal eruit te vissen.

Kan je het bronbestand (dus de teksten) niet op een andere manier invoegen? Opdelen in 3 kolommen bijvoorbeeld, zodat "65" "keer" en "100" alle drie in een aparte kolom komen?
 
Thx voor de reactie!

't Probleem is dat ik niet weet hoe je die drie kolommen moet maken en hoe dat juist werkt. Ik heb er al liggen op zoeken, maar niet gevonden.

Kan jij me helpen? Jijweet blijkbaar hoe het moet...

THX !!!
 
Voor echte vba specialisten misschien wat onbeholpen, maar het werkt wel.


Sub Lettersweg()
'
' Macro2 Macro
' De macro is opgenomen op 6-10-2003 door Frank Kusters.
'

'


Cells.Replace What:="a", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="b", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="c", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="d", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="e", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="F", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="g", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="h", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="i", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="j", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="k", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="l", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="m", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="n", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="o", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="p", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="q", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="r", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="s", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="t", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="u", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="v", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="w", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="x", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="y", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="z", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False

End Sub
Sub cijfersweg()
'
' Macro2 Macro
' De macro is opgenomen op 6-10-2003 door Frank Kusters.
'

'

Cells.Replace What:="1", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="2", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="3", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="4", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="5", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="6", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="7", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="8", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="9", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="0", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="-", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="/", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False

End Sub
 
't is een beetje knutselen, maar als er voor en na de x een spatie staat werkt het volgende (dacht ik)
in cel A1: 123456 x 98765
in B1: een spatie
in C1: =VIND.SPEC(B1;A1;1) 'zoek de positie van de eerste spatie
in D1: =VIND.SPEC(B1;A1;C1+1) 'zoek de positie van de tweede spatie
in E1: =LINKS(A1;C1)
in F1: =RECHTS(A1;LENGTE(A1)-D1)

formule naar beneden kopiëren
(hope this helps)
btw je kan natuurlijk de spatie ook vervangen door een ander teken (met <Ctrl><H>
 
Hartelijk dank allebei!!! :)

Ik ga eens uitpluizen welke methode ik ga gebruiken. Ik denk de laatste, omdat het zo simpel mogelijk moet zijn. Ik maak een klein programma, als stage, voor een bedrijf. Vandaar, als er achteraf nog moet aan gesleuteld worden, ben ik er niet meer en dan, moeten ze het zelf kunnen fiksen.

Toch allebei al bedankt ! :thumb:
 
Hallo terug!!:o

Ik heb het jouwe toegepast (Brandernl) en het werkt prima!!!

Enkel zit ik nu nog met een probleem. Die getallen dat er in staan zijn nog steeds als tekst herkent.

Het zou zo moeten zijn dat dat automatisch gaat, het omzetten van tekst naar getal.

Manueel kan ik het. Weet jij of het in een formule kan? Kan je mij nog eens opweg zetten?

Of iemand anders?

Thxie:rolleyes:
 
Je kan hiervoor de VALUE() functie gebruiken. In de Nederlandse versie zal dit wel WAARDE() heten of zo?
 
Helaba :)

Getest en goedgekeurd !!!

Dankuwel allemaal.

Groetjes allemaal vanuit België :thumb:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan