Folgende Frage:
Habe eine Listbox in die mit folgendem Code mit Autofilter gefilterte Daten übergeben werden (Danke Hajo!)
Private Sub UserForm_Initialize()
Dim Zeile As Long
Dim I As Long
Dim letzte As Long
With ActiveSheet
ListBox1.ColumnCount = 3
letzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
Zeile = 0
For I = 1 To letzte
If Rows(I).EntireRow.Hidden = False Then
ListBox1.AddItem .Cells(I, 1)
ListBox1.List(Zeile, 1) = .Cells(I, 2)
ListBox1.List(Zeile, 2) = .Cells(I, 3)
Zeile = Zeile + 1
End If
Next I
End With
End Sub
Soweit funtionert das alles. Allerdings habe ich mehr als 10 Spalten zum Anzeigen. Über die Suche habe ich rausgefunden, das ich die gefilterten Daten in ein extra Sheet schreiben muss (welches auch ausgeblendet sein kann) und mit der Zeile
ListBox1.RowSource = "HILFSTABELLE_SUCHE!A1:Z1000"
auslesen muss. Und hier ist mein Problem. Wie bekomme ich diese gefilterten Daten in die HILFSTABELLE_SUCHE?
Zu dem Autofilter: Dieser wird über ein UF gesetzt, da das Sheet für den User nicht sichtbar sein soll. Auch läuft es bei dieser Suche mehr über eine "Eingrenzung"
Filter 1 = Artikelbezeichnung, (Auswahl über ComboBox)
Filter 2 = Artikelgrösse (in Abhängigkeit von Artikelbezeichung, ebenfalls Auswahl über ComboBox)
...
usw.
Später soll dann bei klick auf einen Datensatz in der Listbox, dieser in eine UF mit Textboxen übergeben werden.
Wenn ich das ja nun richtig verstehe müssen ja die Eintragungen in HILFSTABELLE_SUCHE bei jeder neuen Auswahl aktualisiert werden und ebenfalls in der Listbox.
Ist das überhaupt möglich und wenn ja, wie muss ich dabei vorgehen?
Thx für die Hilfe, und Nein es soll keine "Auftragsarbeit" sein.
LG Gerhard