Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Afkorting + naam uit string halen  (gelezen 1760 keer)

0 leden en 1 gast bekijken dit topic.

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Afkorting + naam uit string halen
« Gepost op: 19 oktober 2021, 19:34:16 »
Vraag:

Ik probeer afkortingen met daarachter de naam(in hoofdletters) uit een tekst string te halen.
Vooralsnog heb ik geen perfecte oplossing. Denken jullie met mij mee? :)

Wanneer ik de oplossing heb zal ik die ook delen.

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Afkorting + naam uit string halen
« Reactie #1 Gepost op: 19 oktober 2021, 20:44:18 »
Ik ben er uit. Leuke puzzel. Ook ben ik benieuwd naar jullie eventuele oplossingen. :)
Daarom wacht ik nog even met posten van mijn oplossing.


Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afkorting + naam uit string halen
« Reactie #2 Gepost op: 19 oktober 2021, 21:45:46 »
Ga morgen ff naar je puzzel kijken. Ben héél benieuwd wat je nu weer voor leuke opdracht hebt verzonnen.  ;D
______________________________

Groet, Leo

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Afkorting + naam uit string halen
« Reactie #3 Gepost op: 19 oktober 2021, 21:50:00 »
Succes!  ;D :thumbsup:
Ben benieuwd

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Afkorting + naam uit string halen
« Reactie #4 Gepost op: 21 oktober 2021, 19:27:41 »
Vooralsnog kom ik uit de voeten met:

Function JEC(cell As String) As String
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[A-Z\.&\ -]+"
    Set a = .Execute(cell)
    For Each it In a
      If it.Length > Len(xStr) Then xStr = it
    Next
  End With
  JEC = Application.Trim(xStr)
End Function

 


www.combell.com