adressen

[huibsel]

hoi allemaal
een vraagje ik wil graag een adressen bestand gaan maken in excel
maar ik wil de gegevens gewoon horizontaal hebben

nu krijg ik alle gegevens onder elkaar aangeleverd.
naam
adres
postcode woonplaats
email
telefoon

als ik deze gegevens wil plakken in excel krijg ik 5 cellen onder elkaar en ik wil dat dus graag naast elkaar in afzondelijke kolommen

wie helpt me opweg

groetjes huib

 

[Roncancio]

hoi allemaal
een vraagje ik wil graag een adressen bestand gaan maken in excel
maar ik wil de gegevens gewoon horizontaal hebben

nu krijg ik alle gegevens onder elkaar aangeleverd.
naam
adres
postcode woonplaats
email
telefoon

als ik deze gegevens wil plakken in excel krijg ik 5 cellen onder elkaar en ik wil dat dus graag naast elkaar in afzondelijke kolommen

wie helpt me opweg

groetjes huib

Zitten er toevallig lege regels tussen de verschillende namen?
Met een VBA-macro is het zo gedaan.

Met vriendelijke groet,


Roncancio

 

[huibsel]

nee geen lege regel

 

[Ginger]

Met een VBA-macro is het zo gedaan

Inderdaad... Zeker als je net als ik nog een codeblokje had liggen die ik vrij recent voor een vraag in een ander forum had gemaakt.
Klein beetje aangepast aan het aantal velden van Huibsel...

Sub SplitsAdres()
Dim varAdresRegel(5) As Variant
Dim lLaatsteRegel As Long
Dim i As Integer, y As Integer, z As Integer

    lLaatsteRegel = Cells(Rows.Count, 1).End(xlUp).Row
    
    z = 1
    
    For i = 1 To lLaatsteRegel Step 5
        For y = 0 To 5
            Select Case y
                Case 2  'haal de postcode uit de 3e regel
                    varAdresRegel(y) = Trim(Left(Cells(i + y, 1).Value, 7))
                Case 3  'haal de woonplaats uit de 3e regel
                    varAdresRegel(y) = Trim(Mid(Cells(i + y - 1, 1).Value, 8, 100))
                Case 4, 5  'mailadres + telefoon
                    varAdresRegel(y) = Cells(i + y - 1, 1).Value
                Case Else   'naam + adres
                    varAdresRegel(y) = Cells(i + y, 1).Value
            End Select
        Next y
        Cells(z, 3).Resize(, 6).Value = varAdresRegel
        z = z + 1
    Next i

End Sub

Als je tabel in kolom A staat kan je deze code laten lopen. Vanaf kolom C worden dan de velden op 'regel' gezet. En als je een nederlandse adreslijst hebt, wordt ook de postcode en de woonplaats op de juiste wijze in gescheiden cellen geplaatst.

Groet, Leo

 

[Ginger]

Huibsel, Je hebt de vraag direct na het plaatsen van m'n post op 'opgelost' gezet. Was het antwoord dan meteen goed?

Groet, Leo

 

[Roncancio]

Huibsel, Je hebt de vraag direct na het plaatsen van m'n post op 'opgelost' gezet. Was het antwoord dan meteen goed?

Groet, Leo

Je oogt verbaasd.
Persoonlijk zou ik alleen niet zo gauw i, y en z gebruiken maar bijv. iTel iod.

Met vriendelijke groet,


Roncancio