beim angefügten Code kommt die Meldung "Objekt erforderlich".
Wie muss ich den Code ändern damit es funzt?
Danke!
Private Sub UserForm_Initialize()
Dim oOL As Object
Dim oAdr As Object
Dim oEntry As Object
Dim arr() As String
Dim iCounter As Integer
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Set oOL = CreateObject("Outlook.Application")
Set oAdr = oOL.Session.AddressLists("Kontakte")
For Each oEntry In oAdr.AddressEntries
If iCounter Mod 10 = 0 Then
Application.StatusBar = _
"Lese Adresse Nr. " & iCounter & " ein..."
End If
ReDim Preserve arr(1 To 2, iCounter)
arr(1, iCounter) = oEntry.Name
arr(2, iCounter) = oEntry.Address
iCounter = iCounter + 1
Next oEntry
lstAdressen.Column = arr
Set oOL = Nothing
Application.StatusBar = False
Application.DisplayStatusBar = bln
End Sub