Weg die underscores

[rch22]

Goedenavond,

Vanuit een website kan ik een lijst met artikelen generen. Nu bestaat de artikelomschrijving uit de naam van de schrijver gevolgd door titel boek.

Je krijgt dan zoiets als:

Clive_Cussler__Inferno op zee

Nu staat dit niet zo gelikt. Wat ik wil, en ik weet niet of dit mogelijk is, is het volgende:

Dat de naam van de schrijver naar 1 kolom gaat, en de titel van het boek naar de volgende. De titel van het boek komt altijd na twee opvolgende underscores.

Ik hoop dat ik het duidelijk heb uitgelegd en dat er een oplossing is.

In ieder geval alvast bedankt!!


mvrgr

 

[HierEnNu]

Hierbij je bestandje retour. Namen en titels gesplitst in verschillende kolommen.

Groeten,

M.

 

[DoRcO]

je kunt de optie automatische vervangen gebruiken,
druk CTRL + F
kies tabblad Vervangen
typ op de eerste regel 1 '_'
en op de 2e regel 1 spatie ' '
kies vervolgens voor alles vervangen

suc6

 

[HierEnNu]

DoRcO,

Dan staan naam en titel nog niet in verschillende kolommen!

Groeten,

M.

 

[Warme bakkertje]

Function GetElement(tekst As Variant, n As Integer, _
                    scheidingsteken As String) As String
'Haalt de n-de tekenreeks uit een string
    GetElement = Replace(Split(tekst, scheidingsteken)(n - 1), "_", " ")
End Function

n staat voor het deel dat je wil scheiden, dus voor de naam in kolom B vul je 1 in en voor de titel in kolom C vul je 2 in.

Heb je problemen met het gebruik van de functie, post dan een 2003-versie van je bestand

Mvg

Rudi

 

[MJONK]

met de optie tekst naar kolommen is dit gemakkelijk

scheidingsteken de underscore aanvinken of invullen en klaar.

mvg

 

[snb]

@Rudi,

Waar heb je die funktie gevonden ?
Het gaat mij om split(c0)(2)

 

[Warme bakkertje]

@snb
http://www.vertex42.com/ExcelArticles/user-defined-functions.html

Mvg

Rudi