Excel alles in 1 veld

[DrB]

Goedemiddag

Ik heb een excel bestand met in veld A1 allemaal e-mail adressen. Die staan als volgt:

email1@email.nl; email2@email.nl; email3@gogo.nl

Enzovoorts.

Hoe krijg ik al deze email adressen het snelste in verschillende cellen? Dus dit is wat ik wil:

Veld a1: email1@email.nl
Veld a2: email2@email.nl
Veld a3: email3@gogo.nl

Het zijn heel wat adressen, dus met de hand alles kopieren en plakken is niet te doen.

 

[Wigi]

Data > Tekst naar kolommen met ; als scheidingsteken.

Vervolgens kopiëren > Plakken Speciaal > Transponeren (indien gewenst).

 

[DrB]

Bedankt voor je snelle antwoord, maar helaas werkt dat niet. De adressen zijn teveel om over kolommen te verspreiden, hij neemt dan dus een deel niet mee.

Ik gebruik excel 2007 trouwens.

 

[Wigi]

Zie bijlage, ook de VBA-code voor de functie "deeltje".

Wigi

 

[DrB]

Hoe heb je dat gedaan?

In de bijlage mijn bestand, heb er als voorbeeld nu maar drie adressen ingezet, maar het idee is duidelijk.

 

[Wigi]

Ik heb geen Excel 2007.

 

[DrB]

Ik kijk zo wel even op de andere computer.

Ik heb dus alle adressen in veld "a1" staan. Met ; als scheidingsteken.

Alles moet over de rijen verdeeld worden, dan kan ik ook tellen hoeveel adressen het zijn.

 

[Finch]

Wigi heeft een zelfgeschreven functie gebruikt om de mail adressen eruit te halen. Kijk maar even in de VBA code om deze te zien, en copieer ze naar het correcte bestand.
Of kopieer de gegevens in Wigi zijn bestand (in cel B2), dan moet je alleen nog maar de formule doortrekken in kolom A.

 

[DrB]

Hey Finch,

Allereerst bedankt voor je reactie.

Misschien een domme vraag, maar ik heb nu alle mail adressen in wigi in cel B2 gezet.

Wat is nu de volgende stap? De formule doortrekken, wat bedoel je daarmee?

Ik werk opzich wel veel met excel, maar dergelijke functies heb ik nooit gebruikt. In ieder geval bedankt dat jullie me willen helpen.

 

[Wigi]

De formule kopiëren mag ook.

Zolang de rijen maar kloppen.

 

[Finch]

Ik bedoelde cel B1 ipv B2. Foutje van mijnertwege.

In a1 staat dan de formule "=deeltje($B$1)". Deze kan je dmv de vulgreep naar onderen doortrekken, en dit tot wanneeer alle mailadressen zichtbaar zijn.

 

[DrB]

Volgens mij zit er een foutje in. Ik zie geen mailadressen maar alleen het woord "#NAAM?".

 

[Wigi]

Heb je de VBA-code wel in het bestand staan? Druk Alt-F11 en bekijk de modules.

 

[Finch]

Volgens mij zit er een foutje in. Ik zie geen mailadressen maar alleen het woord "#NAAM?".

ben je zeker dat je ze in het bestand van Wigi hebt gezet?

 

[DrB]

Dat is nog eens een snel antwoord ;-)

Ik gebruik gewoon het bestand wat jij als bijlage hebt staan. Ook daar zie ik #NAAM? staan.

Als ik alt f11 doe zie ik daar de volgende code staan:

Function deeltje(r As Range) As String

    deeltje = Trim(Split(r.Value, ";")(Application.Caller.Row - 1))
    
End Function

Hier twee screenshots:

http://img138.imageshack.us/img138/9992/excel1cp8.jpg
http://img138.imageshack.us/img138/6272/excel2bt6.jpg

 

[Finch]

Ga eens in A1 staan en druk dan eens F9.

 

[DrB]

Gebeurt niets dan, hij geeft ook aan "De formule bevat tekst die niet wordt herkend".

 

[Finch]

Kan je ook eens een printscreen maken met de cursor is A1 ofwel het Excel bestand hier posten?

 

[DrB]

http://img152.imageshack.us/img152/6421/eexgw3.jpg

 

[Wigi]

En nu doe je eens Alt-F11.

Localiseer jouw bestand in de Project Verkenner (Ctrl-R).

Klik het open.

Staat er een module met daarin de functie deeltje?