Sub DiesesMakroZeigtWerteDerZweitenSpalteEinerMehrfachauswahl
Dim var As Variant
Dim Zähler
Dim str
Zähler = 0
MsgBox Me.ListeBewohner.ItemsSelected.Count 'ListeBewohner ist der Name des Listenfeldes
For Each var In Me.ListeBewohner.ItemsSelected
Zähler = Zähler + 1
MsgBox Me.ListeBewohner.Column(1, var)
str = str & "," & Me.ListeBewohner.Column(1, var)
Next var
MsgBox Mid(str, 2)
End Sub