Filtern einer Mehrspaltigen Listbox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sven,
teste mal:

Code:


[Cc][+][-]

Private Sub TextBox1_Change()
  Call Filtern
End Sub

Private Sub TextBox2_Change()
  Call Filtern
End Sub

Private Sub TextBox3_Change()
  Call Filtern
End Sub

Private Sub TextBox4_Change()
  Call Filtern
End Sub

Private Sub TextBox5_Change()
  Call Filtern
End Sub

Private Sub TextBox6_Change()
  Call Filtern
End Sub

Private Sub Filtern()

  Dim ialngIndex As Long, lngIndex As Long, lngCounter As Long
  Dim avntTemp() As Variant
  Dim blnFound As Boolean

  For ialngIndex = LBound(arrData) To UBound(arrData)

      blnFound = False

      For lngIndex = 1 To 6

          With Controls("TextBox" & CStr(lngIndex))

              If .TextLength > 0 Then

                 If LCase$(Left$(arrData(ialngIndex, lngIndex), .TextLength)) = LCase$(.Text) Then

                    blnFound = True
                    Exit For

                 End If
              End If
          End With
      Next

      If blnFound Then

         ReDim Preserve avntTemp(1 To 6, lngCounter)

         For lngIndex = 1 To 6

             avntTemp(lngIndex, lngCounter) = arrData(ialngIndex, lngIndex)

         Next

         lngCounter = lngCounter + 1

      End If
  Next

  If lngCounter > 0 Then

     ListBox1.Column = avntTemp

  Else

     ListBox1.List = arrData

  End If
End Sub

Gruß
Nepumuk

Hallo Nepumuk,
habe den Code eingefügt und es wird gefiltert :) vielen Dank schon mal dafür!
Jetzt habe ich fest gestellt das wenn ich etwas in ein Textfeld eintrage und wieder lösche sich die Listbox jedes mal verkleinert.
Also wenn man etwas in ein Textfeld schreibt und es wieder löscht und das ganze wiederholt. Nach der ca fünften Wiederholung verkleinert sich die Listbox dann nicht mehr.
Gibt es hier vielleicht einen Zusammenhang wie ich die Range "ProjektAuswahl" ermittle?


=BEREICH.VERSCHIEBEN(Projekte!$A$2;0;0;VERGLEICH("";Projekte!$A:$A;-1)+2;ANZAHL2(Projekte!$1:$1)-1)

Jetzt wird nach dem ersten Wort in der Zelle gefiltert was müsste ich denn anpassen das alles angezeigt wird auf was der Eintrag passt egal wo sich dieser in der Zelle befindet.
Anbei die Tabelle mit dem eingefügten Code
https://www.herber.de/bbs/user/146695.xlsm
Danke und Gruß
Sven

Beliebteste Forumthreads (12 Monate)

Filtern einer Mehrspaltigen Listbox

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filtern einer Mehrspaltigen Listbox

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread