een stuk tekst in een cel selecteren

[rw88]

Hoi,

ik wil een stukje tekst selecteren uit een link in een cel in excel. Het stukje tekst begint elke keer op dezelfde plek, maar heeft nooit evenveel tekens en begint nooit met hetzelfde teken (letter). Ik heb vind.spec al geprobeerd, maar aangezien de tekst niet met hetzelfde teken begint weet ik niet waar ik naar moet zoeken. Ik denk dat het met 'deel' moet, maar ik kom er verder niet uit.
Hieronder een soortgelijk voorbeeld:

marathoneindhoven/voorbeeld_nr
marathoneindhoven/route_marathon
marathoneindhoven/deelnemers_aantal

De tekst begint elke keer op plaats 21. Ik wil het deel tussen de / en _ selecteren.

Bedankt alvast.

 

[wampier]

Als de "/" en "_" uniek zijn kan dat met een zelfgeschreven functie. Je kunt dan een string aflopen op deze twee tekens en het stuk ertussenuit halen. Je kunt ook gebruik maken van de regular expression ondersteuning van VBscript, wat bijna met elke combinatie werkt.

gebruik in cel:

=RegExpSubstitute(A29;"\w+/(\w+)_\w+";"$1")

functiecode (plaatsen in module in VBA)

Function RegExpSubstitute(ReplaceIn, ReplaceWhat As String, ReplaceWith As String)
    Dim RE As Object
    Set RE = CreateObject("vbscript.regexp")
    RE.Pattern = ReplaceWhat
    RE.Global = True
    RegExpSubstitute = RE.Replace(ReplaceIn, ReplaceWith)
End Function

 

[Roncancio]

In een formule:

=DEEL(A1;VIND.SPEC("/";A1)+1;VIND.SPEC("_";A1)-VIND.SPEC("/";A1)-1)

In VBA:

Function Part(sText As String) As String
Application.Volatile
Part = Mid(sText, InStr(sText, "/") + 1, InStrRev(sText, "_") - InStr(sText, "/") - 1)

End Function

Met vriendelijke groet,


Roncancio

 

[rw88]

Ik moet echt een formule gebruiken om de tekst te selecteren, dus een functiecode mag niet.. =RegExpSubstitute(A29;"\w+/(\w+)_\w+";"$1") doet het niet.

 

[rw88]

Beste Roncancio,
bedankt! Ik heb het nu helemaal opgelost!