Danke
Dim i As Long
With ListBox1
.ColumnCount = 3
.ColumnHeads = False
.ColumnWidths = "3cm;3cm"
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Tabelle1.Cells(i, "A").Interior.ColorIndex = 3 Then
.AddItem Tabelle1.Cells(i, "A")
.List(.ListCount - 1, 1) = Tabelle1.Cells(i, "B")
End If
Next
End With