Tabelle Filter Filterkriterium aus aktiver Zelle

Hallo liebe Excel-Freunde und Profis!

Hab mal wieder eine Frage zu einer intelligenten Excel-Tabelle:

Die Tabelle umfasst viele Spalten von welchen ich bei den meisten "Nur" via Drag+Drop die aus einem PDF-Datensatz reinkopiere.

Auf Grund von Kriterien diverser Spalten muss ich andere Spalten "händisch" ergänzen.

Da Die Zeilenanzahlen sehr umfangreich sind/werden, ist es mittlerweile nervig das Kriterium via Textfilter immer händisch einzugeben.

Deshalb meine Frage an euch.

Kann ich mittels Makro Das Kriterium aus der aktiven Zelle in der jeweiligen Spalte übernehmen.

In der nachfolgenden Beispieldatei würde ich also gerne nach dem Kriterium aus der aktiven Zelle (C5 = "Hans") per Makro in der Spalte C filtern lassen.

https://www.herber.de/bbs/user/168204.xls

Oder Nach "Züricher" in der Splate B, . . . .

Besten Dank für jede Rückmeldung und euer Engagement.

Florian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim tblCol As Integer With Tabelle1.ListObjects("Tabelle1") If Not Intersect(Target, .DataBodyRange) Is Nothing Then tblCol = Target.Column - .Range.Column + 1 .Range.AutoFilter Field:=tblCol, Criteria1:=Target.Value, Operator:=xlAnd End If End With End Sub

Hallo Florian,

ich vermute, dass die ZUordnung von Tastenkombination erst möglcih ist, wenn der Code in einem Module vorliegt (nicht in dem Codepane von "Tabelle1")

Es reicht dann folgende Code:

Const cTab = "Tabelle2"



Sub Filter_hinzufügen()

' Tastenkombination: Strg+b

    With Range(cTab).Parent.ListObjects(cTab)

        If Not Intersect(ActiveCell, .DataBodyRange) Is Nothing Then _

            .HeaderRowRange.AutoFilter Field:=ActiveCell.Column - .DataBodyRange.Column + 1, Criteria1:="=" & ActiveCell.Text

    End With

End Sub



Sub Filter_zurückstellen()

' Tastenkombination: Strg+B (Grosses B, also Strg+Shift+b)

    On Error Resume Next

    If Range(cTab).Parent.Name = ActiveSheet.Name Then Range(cTab).Parent.ListObjects(cTab).AutoFilter.ShowAllData

End Sub

Schau dir ebenfalls den Code von Case. Er berücksichtigt mehr mögliche Fälle. Bin aber der Meinung, dass diese minimalistische Variant hier deinen Bedarf abdecken könnte.

VG
Yal

Beliebteste Forumthreads (12 Monate)

Tabelle Filter Filterkriterium aus aktiver Zelle

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle Filter Filterkriterium aus aktiver Zelle

16 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)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread