Verschillende tekst uit omschrijving in een nieuwe kolom

[vragenstellerd200]

Beste mensen,

Zoals in het voorbeeld weergegeven heb ik te maken met een excel sheet met een kolom: omschrijving.
Het probleem aan deze kolom is dat de grootte van de tekst en formulering verschillend is.

Wat is het doel: ik ben op zoek naar een functie waarin hij zoekt naar de verschillende dikgedrukte kernwoorden uit de omschrijving en deze neerzet in 1 kolom "categorie".

Kunnen jullie mij helpen?

Alvast bedankt!

 

[Conseclusie]

Dit kan alleen met VBA. Zie onderstaande function:

Function VetteTekst(Cel) As String
For Karakter = 1 To Len(Cel)
    If Cel.Characters(Start:=Karakter, Length:=1).Font.FontStyle = "Vet" Then
        If Mid(Cel, Karakter, 1) <> " " Then 'Vette spatie negeren
            VetteTekst = VetteTekst & Mid(Cel, Karakter, 1)
        End If
    End If
Next Karakter
End Function

 

[HSV]

Of:

 If Cel.Characters(Karakter, 1).Font.Bold Then

 

[VenA]

Als het voorbeeld representatief is dan volstaat een formule ook.

=MID(B6;FIND("x";B6)-7;7)

 

[vragenstellerd200]

Dank voor jullie reacties! Waarschijnlijk was mijn voorbeeld onduidelijk.
Ik heb het in het voorbeeld dikgedrukt gemaakt wat onder categorie moet komen (om het te verduidelijken), maar in de daadwerkelijke sheet zijn deze niet dikgedrukt.
Zo moet er in de kolom omschrijving dus naar drie verschillende termen worden gezocht:
-KTP1800
-KTX1500
-KTK3000
En afhankelijk van of een van deze termen in de omschrijving voorkomt moet hij in de kolom categorie de term plaatsen

Is het mogelijk wat ik wil?

Nogmaals al bedankt voor het meedenken

 

[Haije]

zie bijlage

 

[VenA]

Wat gaat er dan mis met het bestandje in #4? Hoe verwarrend kan je een vraag stellen?