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