Cijfers van tekst scheiden.

[john lion]

Goede morgen,

Wie kan mij helpen met de volgende vraag:
In een cel heb ik een adres met huisnummer daarachter.
Voorbeeld: "Van Meersingel 12". Het is niet mogelijk mij een lijst aan te bieden met alleen de straat. Nu probeer ik het nummer te scheiden van straat, waardoor ik alleen de straten over houd voor een draaitabel.
Ik heb het een en ander al geprobeerd met lengte, Substitueren, vind.alles, spaties.wissen zucht..helaas. Weet iemand een oplossing...
Mijn dank
Gr. John

 

[snb]

Ook dit forum heeft een zoekfunktie.

 

[DCWDPT]

Wat je nog niet hebt geprobeerd is:
Data - Tekst naar kolommen

Kijk daar eens naar.

 

[john lion]

Goededag,

Natuurlijk had ik de meest voor de hand liggende oplossing tekst naar kolommen eerst geprobeerd (geen optie) en goed op het forum gezocht naar eerdere soortgelijke vragen. (Zal vast wel ooit ter sprake zijn gekomen echter moeilijk om de juiste criteria te vinden)
Toch bedankt.

 

[DCWDPT]

Toch zou ik het doen met Tekst naar kolommen. Gewoon even een paar extra kolommetjes tussenvoegen, de tekst bij elke spatie naar een nieuwe kolom laten gaan en dan de kolommen waar de straatnamen in staan weer samenvoegen. Als je dat doet, ben je in een mum van tijd klaar. Of moet je dit zeer regelmatig doen, want dan moeten we toch nog eens kijken naar iets met VBA.

 

[Gert Bouwmeeste]

Ik heb de zoekfunctie ook geprobeerd maar het lukt mij ook niet om iets te vinden.

 

[Gert Bouwmeeste]

Maar met Google vind ik wel deze verwijzing naar HelpMij, met voorbeeldbestanden

 

[robdgr]

Natuurlijk had ik de meest voor de hand liggende oplossing tekst naar kolommen eerst geprobeerd (geen optie) en goed op het forum gezocht naar eerdere soortgelijke vragen. (Zal vast wel ooit ter sprake zijn gekomen echter moeilijk om de juiste criteria te vinden)

Het wordt tijd voor een voorbeeld, ontdaan van gevoelige informatie

 

[HWV]

Wel iets gevonden

Beste,

Ik heb er ook lang naar gezocht, maar uiteindelijk hier de hulp gekregen.

Groet HWV

 

[trucker10]

Bij deze een voorbeeldje als de straat namen aan elkaar hangen , meer dan voorbeelden genoeg als je op de formule =links of =rechts zoekt

 

[john lion]

Hallo HWV, Trucker 10 en overige denkers,

Deze 2 oplossingen zocht ik. Ik moet bekennen dat ondanks ik dacht veel van Excel te weten zie dat ik nog veel kan leren. Mooi te zien hoe men meedenkt en de uitdaging aangaat. Dank voor jullie moeite en oplossing... Sterk Forum.

Vriendelijke groet John

 

[Warme bakkertje]

Of met 2 functies

Mvg

Rudi

 

[john lion]

Hoe simpel kan het zijn Rudi.... Je mot er maar opkomen =HaalTekst..geweldig.

Gr
John

 

[trucker10]

Als je maar weet wat er achter zit achter =HaalTekst Rudi bakt voor alles een oplossing :thumb: ook al is het met een function

 

[john lion]

Hi Trucker10

Hmm ik had al gekeken in VB. Blijkt een toevoeging van een functie welke ik niet heb...
Was al content daar als blijkt dat een adres géén huisnummer heeft er als uitkomst #WAARDE! komt te staan...

gr John

 

[popipipo]

@ rudy

:thumb::thumb:Een schitterende oplossing.:thumb::thumb:
Echter vind ik het altijd een sport om bij dit soort problemen, om bv namen en in dit geval straat en huisnr te splitsen, uitzonderlijke gevallen te testen.

En het is me weer gelukt om een uitzondering te vinden.
Wat denk je bv van 24 oktoberplein 26 of Laan 40-45 of 5e mei plein 19
Je formule gaat dus de mist in als de straatnaam ook een nr bevat.

Let wel ik keur je oplossing niet af (ik kan het echt niet beter) maar toon hierbij aan dat het altijd weer moeilijk is om de formule alle gevallen foutloos te laten werken.
En dat je zo'n formule dus nooit klakkeloos kunt overnemen en je eigen hersenen ook moet laten werken.

 

[snb]

Wat dacht jij dan hiervan ?

Function HaalGetal(mystr As String) As String
  sq = Split(mystr)
  For j = UBound(sq) To 1 Step -1
    If Val(sq(j)) > 0 Then Exit For
  Next
  sq(j) = "@#" & sq(j)
  HaalGetal = Join(Filter(Split(Join(sq), "#"), "@", False), "")
End Function

Function HaalTekst(mystr As String) As String
  sq = Split(mystr)
  For j = UBound(sq) To 1 Step -1
    If Val(sq(j)) > 0 Then Exit For
  Next
  sq(j) = "#@" & sq(j)
  HaalTekst = Join(Filter(Split(Join(sq), "#"), "@", False), "")
End Function

 

[trucker10]

Wat dacht jij dan hiervan ?

Voor de TS getest en zeer goed bevonden ( snb :thumb: )

 

[snb]

Voor de liefhebbers:

Function HaalGetal(mystr As String) As String
  HaalGetal = Join(Filter(Split(splits(mystr), "@"), "#", False), "")
End Function

Function HaalTekst(mystr As String) As String
  HaalTekst = Join(Filter(Split(splits(mystr), "#"), "@", False), "")
End Function

Function splits(mystr)
  sq = Split(mystr)
  For j = UBound(sq) To 1 Step -1
    If Val(sq(j)) > 0 Then Exit For
  Next
  sq(j) = "#@" & sq(j)
  splits = Join(sq)
End Function

Deze funktie houdt ook rekening met toevoegingen achter het huisnummer (24a, 192hs of 192 hs, 12 III, etc.)

 

[popipipo]

:thumb::thumb:snb

Ik kan niets bedenken, wat in de praktijk voorkomt, wat niet goed gaat

:thumb::thumb: