in 1 cel kijken of de waarde meerdere keren voorkomt

[gaggie]

Hallo,

Is het mogelijk om de inhoud van een cel te splitsen.
In de bijlage staat wat ik bedoel.

In kolom A staat tekst, maar dezelfde tekst komt soms meerdere malen terug in die cel.
In kolom B daar wil ik de tekst ook heBekijk bijlage vraag.xlsbben maar dan alleen tot de tekst zich herhaalt.

Ik hoop dat iemand een oplossing heeft.

Met vriendelijke groet,

Guido

 

[kibus]

Goedemorgen,

Ik in het verleden hulp gehad van wigi zie bijlage, kijk maar eens of je er wat mee kunt

gr
Edwin


Bekijk bijlage tekstsplitsen.xls

 

[gaggie]

helaas dat werkt niet voor mij.
de 1e waarde in een cel kan van lengte verschillen.

In ieder geval bedankt.

Guido

 

[leofact]

Met de volgende functie worden de dubbele woorden er tussen uit gehaald.
De functie roep je aan in de cel waar je de uitkomst wilt hebben.

= DubbeleTekst(A1)

A1 = de cel waar de tekst in staat.
De Functie:

Function DubbeleTekst(ByVal sTest As String)
Dim iBegin As Integer
Dim iEind As Integer
Dim iLengte As Integer
Dim sTemp As String
Dim suitkomst As String

iLengte = Strings.Len(sTest)
iBegin = 1
    Do
        iEind = Strings.InStr(iBegin, sTest, " ")
            If iEind = 0 Then iEind = iLengte + 1
                sTemp = Strings.Mid(sTest, iBegin, iEind - iBegin)
                    If Strings.InStr(1, suitkomst, sTemp) = 0 Then suitkomst = suitkomst & sTemp & " "
            If iEind < iLengte Then
                    iBegin = iEind + 1
                Else: Exit Do
            End If
    Loop
DubbeleTekst = Trim(suitkomst)
End Function

Wil je alleen tekst in de uitkomst cel dan kun je de functie ook als sub gebruiken
De functie moet in een module van de projectverkenner worden gezet.
Die opent met ALT + F11
Vervolgens menu invoegen > module
Plak dan de functie hierin

zie de bijlage Bekijk bijlage vraag (Automatisch opgeslagen).xls
Mvg Leo

 

[zapatr]

Zie de bijlage.

 

[gaggie]

Beste Leo,

Die functie werkt helemaal.
Bedankt voor deze super oplossing.

Met vriendelijke groet,

Guido

 

[gaggie]

Beste Zapatr,

Ook die werkt.
Echter met de functie van Leo ben je iets vrijer.
Maar evengoed bedankt.

Met vriendelijke groet,

Guido

 

[zapatr]

Hoe bedoel je dat gaggie, "iets vrijer" ?

 

[gaggie]

In de oplossing van jou moet ik kolomletters aanpassen.
Met de functie van Leo, klik ik gewoon een cel aan en het werkt, daarna kan ik dat gewoon naar beneden doortrekken.
Dat is voor mij makkelijker.

Let wel ik zeg voor de rest niets negatiefs over de formule, ik bedoel alleen dat het voor mij vrijer lijktl en minder aanpassingen.

Met vr.gr.

Guido

 

[zapatr]

Ok,
je moet altijd de oplossing gebruiken die in jouw situatie het best voldoet.

 

[gaggie]

ik bewaar die formule wel.

Met vr.gr.

Guido