Filter in ComboBox

[herbi]

Excel 365

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

Code:

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

[schauan]

Hallöchen,

schaue Dir dort im Post #32 mal meinen Beispielcode an und wo ich die Spalten und Zeilen habe

https://www.clever-excel-forum.de/Thread...#pid198440

[steve1da]

Hola,

längst gelöst.....

https://www.herber.de/forum/archiv/1756t...tm#1759981

Nicht dass man das mitteilen müsste.

Gruß,
steve1da

[snb]

Struktur im Algemeinen:

Code:

Sub M_snb()
  with sheet1.cells(1).currentregion
    .autofilter 1, "snb"
    .offset(1).copy sheet1.cells(1,100)
    .autofilter
  end with

  combobox1.List=sheet1.cells(1,100).currentregion.value
  sheet1.cells(1,100).currentregion.clearcontents
End Sub

Wie viele 'Spalten' gezeigt werden is abhängig von der Eigenschaft .ColumnCount.