Filterergebnisse in ListBox ausgeben
18.05.2020 19:26:56
Herbi
Hallo in´s Forum,
mein erster Post und gleich eine Bitte.
In der Tabelle1 wird gefiltert in Spalte A "customer".
Das Ergebnis soll ausgegeben werden in einer Userform mit einer ComboBox und einem Listenfeld.
Der u. a. Code funktioniert insoweit, dass nur die 1. Spalte von 4 Spalten in der ListBox angezeigt werden.
Der Fehler liegt für mich momentan im "Nirwana".
Scheinbar bin ich betriebsblind geworden bei all der Testerei.
Wer kann/würde mir da weiterhelfen?
Dankeschön
herbi
Hier der Code der ausgeführt wird:
*********************************************************************************************
Private Sub ComboBox1_Change()
Dim database(1 To 100, 1 To 4)
Dim My_range As Integer
Dim colum As Byte
On Error Resume Next
Tabelle1.Range("A2").AutoFilter field:=1, Criteria1:=Me.ComboBox1.Value
For i = 2 To Tabelle1.Range("A100000").End(xlUp).Row
If Tabelle1.Cells(i, 1) = Me.ComboBox1 Then
My_range = My_range + 1
For colum = 1 To 4
database(My_range, colum) = Tabelle1.Cells(i, colum)
Next colum
End If
Next i
Me.ListBox1.List = database
End Sub
************************************************************************************
https:\/\/www.herber.de/bbs/user/137618.xlsm
Anzeige
