Ich habe in einer UserForm eine ListBox mit 4 Spalten die mit AddItem gefüllt wird.
Über einen CommandButton lasse ich mir in Spalte C meiner Tabelle via AutoFilter die Zeilen anzeigen.
Hier der Code:
ActiveSheet.Range("C3:C103").AutoFilter Field:=1, Criteria1:="G"
Nun möchte ich mit MultiSelect eine weitere Auswahl treffen und mir die ausgewählten Daten per AutoFilter dann Anzeigen lassen.Ich habe mir den folgen Code aus dem Forum so angepasst, das er mir die Daten auch Anzeigt.
For i = 0 To ListBox1.ListCount - 1
If (ListBox1.Selected(i)) Then
ActiveSheet.Range("D3:D103").AutoFilter Field:=1, Criteria1:=Array(ListBox1.List(i, _
4 - 1)), Operator:=xlFilterValues
End If
Next i
Jedoch zeigt er mir die Daten in der gewünschten Zeile nur nacheinander an also... erst Test1 dann Test2 dann Test3 usw.Wie muss ich den Code ändern, dass er mir die Daten untereinander anzeigt also... Test 1, Test2, Test3 usw.
Danke für Eure Hilfe!
Gruß Mike