Listbox auswahl anhand Zellenfarbe
17.02.2016 09:23:42
Daniel
ich habe eine Listbox die mit diesem Code funktioniert:
Sub UserForm_Initialize()
Dim i As Integer
With ListBox1
.ColumnCount = 5
.ColumnWidths = "1cm;2cm;2cm;2cm;2cm"
For i = 8 To Cells(Rows.Count, 1).End(xlUp).Row
.AddItem Sheets("Anfragen").Cells(i, 1)
.Column(1, i - 8) = Sheets("Anfragen").Cells(i, 5)
'Beginnt i bei 1 dann muss i - 1 sein!
.Column(2, i - 8) = Sheets("Anfragen").Cells(i, 7)
.Column(3, i - 8) = Sheets("Anfragen").Cells(i, 9)
.Column(4, i - 8) = Sheets("Anfragen").Cells(i, 10)
Next i
.ListIndex = 0
End With
End Sub
Die Zeilen im Tabellenblatt sind mit 3 Farben gekennzeichnet (gelb, rot und grün).
Ist es möglich, dass die Listbox nur die roten und gelben Zeilen anzeigt und diese auch noch sortiert? Erst die roten und dann die gelben.
Meine Kenntnisse reichen dafür leider nicht aus.
Danke schon mal