Listenfeld sortiert hochladen
03.03.2005 18:19:19
Axel
habe eigentlich ein kleines Problem, komme aber nicht weiter.
Ich habe einen Tabellenbereich von "A2:M400" voll mit Daten.
Über eine Userform fülle ich das Listenfeld mit den Daten aus dem Tabellenbereich.
Das mache ich folgendermaßen ...
Private Sub UserForm_Initialize()
Dim lR%
lR = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "Tabelle1!A2:M" & lR
ListBox1.ListIndex = 0
ListBox1.ColumnCount = 4
End Sub
Soweit, so gut.
Ich möchte nun aber nur die Zeilen (z.B. Zeile 5 und 12 und 17, jeweils Spalte A bis M) im Listenfeld sehen, die dem Suchkriterium "Metall" aus der Spalte "B" entsprechen.
Wie mache ich das ?, ich lege mir schon seit einer Stunde die Karten.
Kann Mir jemand helfen?
MfG, Axel