Klik hier om Silverlight te installeren*
Nederland|Sitemap
Microsoft
hoe doe ik dat? 
|Contact
Hoe doe ik dat? - Stap voor stap uitgelegd

Adres ophalen uit Excel-bestand

De applicaties van 2007 Microsoft Office system werken prima samen. Desondanks is het gebruiksklaar overhalen van een adres uit een lijst in Excel 2007 naar een document in Word 2007 niet zo eenvoudig. Dankzij een kleine VBA-macro is dat probleem echter eenvoudig op te lossen.
 
Voorbeeldwerkblad
VBA-macro
Gebruik van de macro
Sneltoets

Veel zakelijke gebruikers gebruiken Excel 2007 niet alleen voor hun rekenwerk, maar ook voor hun databases. Daarvoor is het programma in eerste instantie eigenlijk niet bedoeld, maar het is wel gemakkelijk én vertrouwd. U zet in de eerste rij een aantal veldnamen en daaronder vult u per rij steeds de bijbehorende gegevens in. Bijvoorbeeld de adresgegevens van bedrijven, relaties en contactpersonen. Een dergelijke lijst is in Excel 2007 eenvoudig te sorteren en u kunt er zelfs selecties op uitvoeren. Bovendien is een Excel-werkblad in Word 2007 te gebruiken voor het maken van samenvoegingen. Het gaat echter mis wanneer u een adres uit uw Excel-adressenlijst wilt ophalen en dat wilt gebruiken in een brief in Word 2007. Maar geen nood, dankzij een slimme VBA-macro is dat probleem eenvoudig op te lossen. Aan de hand van een praktisch voorbeeld leggen we uit hoe een en ander werkt.
 
Schermafbeelding: Excel-werkblad

Voorbeeldwerkblad

Ons voorbeeldwerkblad Adreslijst bevat een standaard adressenlijst. Dit voorbeeldwerkblad is bruikbaar in zowel Excel 2007 als in Excel 2003. In dit artikel gaan we verder uit van Excel 2007. De door ons aangemaakte adressenlijst bevat de veldnamen Naam, Contactpersoon, Straat, Huisnr1, Huisnr2, Pc en Plaats. We gaan nu aan de slag:
 
  1. Open het voorbeeldwerkblad Adreslijst.xls in Excel 2007 en selecteer het adres van Bakkerij Vermeulen (cellen A13:G13)
  2. Druk op Ctrl+C of klik op de knop Kopiëren in het lint
  3. Ga naar een leeg document in Word 2007
  4. Druk op Ctrl+V of klik op de knop Plakken in het lint.
 
De gegevens worden naast elkaar als een tabel op de plaats van de cursor in Word 2007 geplakt. Zo zijn de gekopieerde adresgegevens in een brief niet echt bruikbaar. U wilt de gegevens namelijk in de standaardvorm van een adres bovenaan een brief plaatsen. Om ervoor te zorgen dat alle velden op de juiste plek komen te staan, moeten we ze in de juiste volgorde op het Klembord plaatsen. Dat kan met behulp van een macro (of beter gezegd: door een klein hulpprogramma te schrijven in de programmeertaal VBA).
 
Schermafbeelding: voorbeeldwerkblad
 

VBA-macro

Voor uw gemak is de macro die de adresgegevens op de juiste wijze op het Windows Klembord plaatst al in ons voorbeeldwerkblad Adreslijst.xls aanwezig. Echter als u wilt weten hoe die gemaakt is, lees dan verder:
 
  1. Activeer Excel 2007 en open het voorbeeldwerkblad Adreslijst.xls
  2. Druk op Alt+F11. De Visual Basic editor wordt gestart
  3. Kies Invoegen >> Module
  4. Kies Extra >> Verwijzingen. Vink Microsoft Forms 2.0 Object Library aan en sluit het venster met OK. U hebt deze bibliotheek nodig om in Excel-macro's met het Klembord te kunnen werken.
  5. Typ de volgende code letterlijk over:

    Sub AdresUitExcelOpKlembord()
    Dim DataObj As New MSForms.DataObject
    Dim adres As String

    ' Macro haalt enkele celwaarden op en combineert deze tot een adres
    ' Het adres wordt op het Windows Klembord geplaatst
    ' (verwijzing naar Microsoft Forms 2.0 Object Library nodig)

    rij = ActiveCell.Row
    kolom = ActiveCell.Column

    firmanaam = Cells(rij, kolom)
    contactpersoon = Cells(rij, kolom + 1)
    straat = Cells(rij, kolom + 2)
    huisnummer1 = Cells(rij, kolom + 3)
    huisnummer2 = Cells(rij, kolom + 4)
    postcode = Cells(rij, kolom + 5)
    plaats = Cells(rij, kolom + 6)

    adres = firmanaam & vbCr & contactpersoon & vbCr & straat & " "
    adres = adres & huisnummer1 & " " & huisnummer2 & vbCr & postcode & " " & plaats

    DataObj.SetText adres
    DataObj.PutInClipboard
    MsgBox adres & vbCr & vbCr & "Adres is op Windows Klembord geplaatst!"
    End Sub
 
  1. Sluit de Visual Basic editor.
  2. Sla het werkblad op.
 
Schermafbeelding: VBA-macro
 
 

Gebruik van de macro

U kunt de macro met de hand starten. Als de macro onverhoopt niet wil starten, sluit dan het voorbeeldwerkblad en open het opnieuw. Onder het lint verschijnt dan de beveiligingswaarschuwing Macro's zijn uitgeschakeld. Kies hier Opties >> Deze inhoud inschakelen >> OK en ga verder.
 
  1. Klik op de naam van een bedrijf, zoals Kanaal Biking BV
  2. Druk op Alt+F8 of ga in het lint naar de tab Beeld en klik op Macro's
  3. Selecteer indien nodig de macro AdresUitExcelOpKlembord en kies Uitvoeren
  4. Sluit de melding dat het adres op het Klembord is geplaatst met OK
  5. Activeer Word 2007 en druk op Ctrl+V of kies de knop Plakken. Het volledige adres wordt op de plaats van de cursor ingevoegd en is direct bruikbaar in de adressering van een brief.
 
Schermafbeelding: gebruik van de macro
 

Sneltoets

De macro is sneller te activeren als u er een sneltoets voor maakt. Die hebben wij er natuurlijk al voor u in geplaatst. Om zelf een sneltoets te maken, handelt u als volgt:
 
  1. Druk in Excel 2007 op Alt+F8
  2. Selecteer de macro AdresUitExcelOpKlembord en kies Opties
  3. Typ een toets en klik op OK en Annuleren.
 
De gekozen toets dient samen met de Ctrl-toets als sneltoetscombinatie. Wij hebben in ons voorbeeldwerkblad de sneltoets op Ctrl+Q ingesteld. Door een bedrijfsnaam te selecteren en op Ctrl+Q te drukken activeert u dus de macro en wordt het hele adres op het Windows Klembord geplaatst. U hoeft daarna in Word 2007 alleen nog maar op de cursor op de gewenste plek te plaatsen en vervolgens op Ctrl+V te drukken.
 
Schermafbeelding: sneltoets
 

Tot slot

Met een relatief eenvoudige macro kunt u Excel 2007 en Word 2007 helemaal naar uw hand zetten. U hoeft in de adreslijst in Excel 2007 slechts een bedrijfsnaam te selecteren en de macro via een sneltoets te starten. Daarna kunt u het correct opgemaakte adres in Word 2007 boven een brief plakken. Snel, handig en steeds opnieuw te gebruiken.
 

Gerelateerde artikelen aan Outlook

 
Abonneer u op de nieuwsbrief
.

©2009 Microsoft Corporation. Alle rechten voorbehouden. Contact opnemen |Gebruiksvoorwaarden |Handelsmerken |Privacyverklaring