Herbers Excel-Forum - das Archiv

Filter per Code in ListBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox
Bild

Betrifft: Filter per Code in ListBox
von: Drazen

Geschrieben am: 24.02.2005 17:21:49
Hallo,
ich fülle meine Listbox in der UF mit folgendem Code:
Private Sub FILTER()
Dim arr() As Variant
Dim iRowL As Integer, sRow As Integer, iCol As Integer, iRowU As Integer
lstAufstellung.Clear
iRowL = Cells(Rows.Count, 10).End(xlUp).Row
For sRow = 1 To iRowL
If (Cells(sRow, 10)) > 0 Then
ReDim Preserve arr(0 To 9, 0 To iRowU)
arr(0, iRowU) = Cells(sRow, 1)
arr(1, iRowU) = Cells(sRow, 2)
arr(2, iRowU) = Cells(sRow, 3)
arr(3, iRowU) = Cells(sRow, 4)
arr(4, iRowU) = Cells(sRow, 5)
arr(5, iRowU) = Cells(sRow, 6)
arr(6, iRowU) = Cells(sRow, 7)
arr(7, iRowU) = Cells(sRow, 8)
arr(8, iRowU) = Cells(sRow, 9)
arr(9, iRowU) = Cells(sRow, 10)
iRowU = iRowU + 1
End If
lstAufstellung.Column = arr
End Sub

Gibt es hier eine Möglichkeit ins arr nur die sichtbaren Zeilen (nach Autofilter) zu laden?
Irgendwie mit
If Rows(iRowl).Hidden = False oder ähnlich??
Grüsse
Drazen
Bild

Betrifft: AW: Filter per Code in ListBox
von: Bert
Geschrieben am: 24.02.2005 17:31:47
If (Cells(sRow, 10))> 0 And Not Rows(sRow).Hidden Then
Zeilen sollten immer As Long deklariert sein!
Bert
Bild

Betrifft: AW: Filter per Code in ListBox
von: Drazen
Geschrieben am: 24.02.2005 17:37:43
Hallo Bert,
was machst Du eigentlich beruflich, woher weisst Du das alles, das will ich auch mal können!!! Klappt natürlich Top, Danke noch mal.
Grüsse
Drazen
Bild

Betrifft: AW: Filter per Code in ListBox
von: Bert
Geschrieben am: 24.02.2005 17:41:36
Da wärst du mit ein wenig Nachdenken auch draufgekommen, oder?
Bert
Bild

Betrifft: AW: Filter per Code in ListBox
von: Drazen

Geschrieben am: 24.02.2005 17:45:31
Alles was ich hier Anfrage passiert erst nach min 20min Nachdenken und 10min rumprobieren, ich mach vieles aus der Literatur heraus aber auch sehr viel mit learning by doing, bin wohl kein totaler Anfänger mehr aber auch noch weit weg von einem Profi, aber Dank solcher Menschen wie Dir komme ich meinem Ziel immer ein Stückchen näher, an dieser Stelle nochmals Dank an alle Freiwilligen hier im besten Excel-Forum der Welt.
Grüsse
Drazen
 Bild
Excel-Beispiele zum Thema "Filter per Code in ListBox"
Dateinamen filtern Summe gefilterter Zeilen
Filtern einer Zahl aus einer Zeichenfolge Gefilterte Daten in eine ListBox einlesen
Gefilterte Daten ohne Zwischenablage übertragen Gefilterte Daten in neues Tabellenblatt übertragen
Autofilter auch mit Ziffern von Zahlen Daten eines bestimmten Jahres filtern
Zellenwert als Autofilter-Kriterienwert Mehrfachauswahl aus ListBox auslesen