Outlook-Adressen in Word übernehmen

Ihr Makro OLAdresseEinfügen aus c't 12/2000, das Adressen aus Outlook in Word übernimmt, funktioniert bei mir ganz prima. Da ich aber viele Adressen habe, ist die Suche mühsam. Wie kann ich die Adressen alphabetisch sortieren?

Das Sortieren der Outlook-Adressen stellt ein Problem dar, da VBA-Listenfelder - anders als ihre Visual-Basic-Verwandtschaft - über keine Sorted-Eigenschaft verfügen. Abhilfe schafft die folgende Ereignisprozedur:

Private Sub UserForm_Activate()
 Dim intI As Integer
 If lstListe.ListCount > 0 Then
   ReDim strArray(0 To lstListe.ListCount - 1) _
         As String
   For intI = 0 To lstListe.ListCount - 1
     strArray(intI) = lstListe.List(intI)
   Next
   WordBasic.SortArray strArray()
   lstListe.List() = strArray
   lstListe.ListIndex = 0
 End If
End Sub

Fügen Sie diese Zeilen dem Code des Userform-Dialogfelds frmListenfeld hinzu, um die Adressen zu sortieren. (Ralf Nebelo/db) ()