Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 10 van 10

Onderwerp: tekst met scheidingstekens naar cel

  1. #1
    Vraag is opgelost

    tekst met scheidingstekens naar cel

    Ik probeer vanuit een stuk tekst waarin scheidingstekens zijn verwerkt de code er uit te halen naar kolommen echter lukt me dat niet.

    voorbeeld: "tekst met scheidings tekens"
    D-02509 - voorbeeld systeem programma test;#835;#D-03022 - voorbeeld systeem programma test;#615;#D-03032 - voorbeeld systeem programma test;#625;#D-03042 - voorbeeld systeem programma test;#635;#D-03929 - voorbeeld systeem programma test;#1681;#D-03933 - voorbeeld systeem programma test;#1685;#D-03948 - voorbeeld systeem programma test;#1720;#D-03948 - voorbeeld systeem programma test;#1719;#D-03948 - voorbeeld systeem programma test;#1721;#D-03948 - voorbeeld systeem programma test;#1722;#D-03951 - voorbeeld systeem programma test;#1738;#D-03951 - voorbeeld systeem programma test;#1739;#D-03951 - voorbeeld systeem programma test;#1740;#D-03951 - voorbeeld systeem programma test;#1741

    en vanuit die tekst wil ik eigen een cel waarin het onderstaande terecht komt.
    D-02509,D-03022,D-03032,D-03042,D-03929,D-03948,D-03951

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Staat dat in 1 cel of in meerdere cellen?
    Onder elkaar of naast elkaar?
    Plaats een voorbeeld documentje.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Met het object VBscript.Regexp in UDF vorm is dit heel goed te doen. Misschien dat iemand hier de voorzet inkopt, ik heb geen pc bij de hand😬

  4. #4
    Hierbij een voorbeeld komt in een cel voor de gehele tekst.
    Bijgevoegde bestanden Bijgevoegde bestanden

  5. #5
    Get opsplitsen met de module heb ik geprobeerd dat lukt alleen blijf ik dan wel met dubbelingen zitten.

    Function OpSplitsen(Target As Range) As String
    Dim Nr() As String

    x = Split(Target, "D-")
    For i = 0 To UBound(x)
    ReDim Preserve Nr(i)
    Nr(i) = "D-" & Left(x(i), 5)
    Next i
    OpSplitsen = Mid(Join(Nr, ","), 4)
    End Function

    In cel B2 =OpSplitsen(A2)

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Daarom had ik 'm weer weg gehaald.
    Je kan een Dictionary gebruiken in plaats van een Array.
    Dictionary.Keys is unique en is een Array.
    Heb ik zelf nu helaas geen tijd voor.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  7. #7
    Oh... oke ik heb geen idee hoe dat werkt sorry

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Waarom hoeft D-03933 niet meegenomen worden? Zonder Dictionary kan ook wel.

    Code:
    Function VenA(r As Range)
      x = Split(Replace(r, " ", "#"), "#")
      For j = 0 To UBound(x)
        If Left(x(j), 2) = "D-" And InStr(c00, x(j)) = 0 Then c00 = c00 & "," & x(j)
      Next j
      If Len(c00) Then VenA = Mid(c00, 2)
    End Function
    Laatst aangepast door VenA : 29 juli 2021 om 16:09
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Top....!

    Dit bedoelde ik inderdaad, dank je wel dit werkt.

  10. #10
    Mega Honourable Senior Member AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Hier nog een formule voor Excel 365:
    Code:
    =TEKST.COMBINEREN(",";WAAR;ALS.FOUT(UNIEK(DEEL(A2;KLEINSTE(ALS(DEEL(A2;REEKS(1000);2)="D-";REEKS(1000));REEKS(1000));7));""))
    Laatst aangepast door AlexCEL : 29 juli 2021 om 16:41
    -- een (excel) voorbeeldbestandje zegt meer dan 1000 woorden --

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren