Option Explicit
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then
MsgBox "Standortwahl fehlt"
Else
MsgBox "Eine E-Mail an " & ComboBox1.List(ComboBox1.ListIndex, 1)
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "-1;0"
Call fuelleCombo
End Sub
Private Sub fuelleCombo()
Dim Standort As Variant
Dim EMailStandort As Variant
Dim i As Long
Standort = Split("Standort A,Standort B,Standort C,Standort D,Standort E", ",")
EMailStandort = Split("A@example.com,b@example.com,c@example.com,d@example.com,e@example.com", ",")
With ComboBox1
For i = 0 To UBound(Standort)
.AddItem Standort(i)
.List(.ListCount - 1, 1) = EMailStandort(i)
Next
End With
End Sub