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

Beiträge aus den Excel-Beispielen zum Thema "Filter per Code in ListBox"