Private Sub cboZeilen_Change() lstSpalten.List = _ WorksheetFunction.Transpose( _ Range(Cells(cboZeilen.ListIndex + 1, 2), _ Cells(cboZeilen.ListIndex + 1, 6)).Value) End Sub