Clever-Excel-Forum

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

Hallöchen,

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

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

Hola,

längst gelöst.....

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

Nicht dass man das mitteilen müsste.

Gruß,
steve1da

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.

herbi

schauan

steve1da

snb