HERBERS Excel-Forum - die Beispiele

Thema: Liste nach Kriterien Filtern und Ergebnisse in ListBox eintragen

Home

Gruppe

Allgemein

Problem

Bei Eingaben in den Zellen F1, F2 oder F3 sollen die Werte in der Tabelle gefiltert und die sichtbaren Werte in die ListBox eingetragen werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim iCol As Integer
   Dim sFilter As String
   If Target.Cells.Count > 1 Then Exit Sub
   iCol = Target.Column - 5
   sFilter = Target.Value
   If Intersect(Range("F2:H2"), Target) Is Nothing Then
      Exit Sub
   Else
      Call GetFilter(iCol, sFilter)
      Calculate
   End If
End Sub

StandardModule: Modul1

Sub GetFilter(iColT As Integer, sFilterT As String)
   Dim wks As Worksheet
   Dim rng As Range, rngFilter As Range
   Dim iCol As Integer
   On Error GoTo ERRORHANDLER
   Set wks = ActiveSheet
   Set rng = Range("A1").CurrentRegion
   rng.AutoFilter field:=iColT, Criteria1:="=" & sFilterT
   Set rngFilter = rng.SpecialCells(xlCellTypeVisible)
   Workbooks.Add 1
   rngFilter.Copy Range("A1")
   Rows(1).Delete
   With Tabelle1.lstFilter
      .Clear
      .List = Range("A1").CurrentRegion.Value
   End With
   ActiveWorkbook.Close savechanges:=False
ERRORHANDLER:
   wks.AutoFilterMode = False
   Application.EnableEvents = True
   If Err > 0 Then
      Err.Clear
      MsgBox "Es wurden keine Werte gefunden!"
      If ActiveWorkbook.Name <> ThisWorkbook.Name Then
         ActiveWorkbook.Close savechanges:=False
         ActiveSheet.AutoFilterMode = False
      End If
   End If
End Sub
Sub a()
Application.EnableEvents
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Filtern

Listbox filtern Datensätze durch Bedingung filtern
Per Matrix Formel filtern Suche in Autofiltern in verschiedenen Spalten
Diagramme nach mehreren Balken filtern Liste mit mehreren Einträgen ausfiltern
Filtern oder Summewenn !? Daten Filtern
Daten umstrukturieren / Filtern MSGBox Zeitraum filtern
ausfiltern liste Duplikate aus einer Tabelle filtern
Monat Filtern Mit Change() o. Calculate() Filtern und Drucken
Filtern - Google Docs / Excell übertragen Unterschiedliche Einträge herausfiltern+auflisten
Filtern per Makro Excel "stolpert" beim wiederholten Filtern
Zahl aus Text filtern Allgemeine Frage zur Fehlerbehandlung
Zeitraum filtern und getrennt speichern allgemeine Fragen zu einer Datenbank
Filtern und sodann selektieren... Listen-Aufstellung filtern und summieren
Daten automatisch filtern + auflisten Daten aus Zeilen filtern und in Spalten kopieren?
ComboBoxDaten in Abhängigkeit filtern o. Userform Postleitzahlen herausfiltern
Daten filtern nur Zahlen aus beliebiger Zeichenkette filtern
Daten filtern Text filtern
Blatt Filtern B Spalte und Zeileninhalt zusammenfü Formel zum Filtern gesucht
allgemein Filtern, aber wie?
Daten filtern Nach Zeitraum filtern
Filtern,kopieren:beim Einfügen Formeln oder Werte Bestimmte Einträge filtern
Filtern mit mind. 3 Bedingungen mit Und gefilterte Liste erneut Filtern
Tabelle durchsuchen - Zeilen filtern Zeilen aus Tabelle filtern & anzeigen
Filtern über ComboBoxen Zeilen filtern
Filtern von Datum Mittelwerte aus Tabelle herausfiltern
Doppelte ausfiltern Doppelte Werte aus einer Zeile filtern