ListBox mehrere Spalten gefiltert
18.08.2015 10:40:11
Felix
Aus anderen Beiträgen zur ListBox hab ich es nicht geschafft mir den Code zurechtzubiegen darum öffne ich hier einen neuen Beitrag.
Ich bin VBA-Neuling und schnipsel mir zur Zeit meine Codes aus dem Internet zusammen. Ich wollte eine UserForm gestalten in der eine gefilterte Tabelle in einer ListBox angezeigt wird.
Nun bin ich soweit, dass es mir einen Filter öffnet und die erste Spalte in die ListBox kopiert und anzeigt nur bin ich wohl zu doof weitere Spalten hinzufügen.
Hier mal mein Code-Ausschnitt:
Private Sub CommandButton1_Click()
'Filterfunktion über Eingabe
Dim Eingabe As String
Eingabe = InputBox("Artikelsuche")
Selection.AutoFilter Field:=1, Criteria1:="=*" & Eingabe & "*", Operator:=xlAnd
'ListBox mit gefilterten Daten füllen
With UserForm1.ListBox1
For i = 1 To Worksheets("datanorm").UsedRange.Rows.Count
If Rows(i).Hidden = False Then
'erste Spalte füllen
.AddItem Cells(i, 1).Value
'zweite Spalte füllen
'dritte Spalte füllen
End If
Next i
End With
End Sub
Vielen Dank für eure Hilfe!