Kann mir jemand sagen wie man Adressen vom Outlook ins Excel importiert?
Danke schon mal für Eure Hilfe.
mfg Jacky
Danke schon mal für Eure Hilfe.
mfg Jacky
das kannst Du beispielsweise über folgendes Makro machen:
Sub KontakteVonOutlook()
Code eingefügt mit Syntaxhighlighter 1.14
Dim Verz As Object
Dim i As Integer
Dim olMAPI As New Outlook.Application
Dim objItem As Object
Sheets.Add
ActiveSheet.Name = "Kontaktdaten2"
Range("A1").Select
Set Verz = olMAPI.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
For i = 1 To Verz.Items.Count
Set objItem = Verz.Items(i)
With objItem
ActiveCell.Value = .FirstName
ActiveCell.Offset(0, 1).Value = .LastName
ActiveCell.Offset(0, 2).Value = .BusinessAddressStreet
ActiveCell.Offset(0, 3).Value = .BusinessAddressPostalCode
ActiveCell.Offset(0, 4).Value = .BusinessAddressCity
ActiveCell.Offset(0, 5).Value = .BusinessAddressCountry
ActiveCell.Offset(0, 6).Value = .BusinessAddressState
ActiveCell.Offset(0, 7).Value = .Email1Address
End With
ActiveCell.Offset(1, 0).Select
Next i
Columns("A:H").AutoFit
Set objItem = Nothing
Set olMAPI = Nothing
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Publikationen mit Leseproben(PDF) unter: http://held-office.de