Hilfe von Matthias G (Verteilerliste Email)

Private Sub UserForm_Initialize()
Dim z As Range
Set z = Range(AdrListeab)
With ListBox1
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
.Clear
Do While z.Value <> ""
.AddItem z.Value
Set z = z.Offset(1, 0)
Loop
End With
End Sub

Private Sub CommandButton1_Click()
Dim i
Dim adr As String
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
adr = Range(Range(AdrListeab), Range(AdrListeab).Offset(.ListCount - 1, 1)).Find(.List(i)).Offset(0, 1)
MsgBox "Sende an " & adr
End If
Next i
End With
'Den Code habe ich eingetragen, damit die über die Listbox gewählten Empfänger verwendet werden
Dim outobj As Object
Dim mail As Object
Set outobj = CreateObject("Outlook.application")
Set mail = outobj.createitem(0)
mail.To = adr
mail.display
Set mail = Nothing
Set outobj = Nothing
End Sub