VBA Excel Autofilter Filterkriterium auslesen

Liebe Forumsmitglieder,
ich habe eine Frage bezüglich des Autofilters in Excel.
Ich habe In Spalte A die Bezeichnung eines Messwerts, in Spalte B die zugehörige Messgröße.
Ich filtere Spalte A z.B. mit "DG*". Der Filter zeigt mir alle Messungen an die mit der Bezeichnung "DG" beginnen. Siehe--> https://www.herber.de/bbs/user/107903.xlsm Achtung der Filter ist mit DG* bereits gesetzt.
Nun möchte ich per VBA das Filterkriterium auslesen (d.h. den Filterbegriff "DG*"). Diesen möchte ich in eine Variable ablegen. Diese Variable, möchte ich später in der Überschrift einer Grafik verwenden, um die Grafik eindeutig den Filterkriterien zuordnen zu können.
Habe schon viel im Forum gestöbert, aber noch nicht das richtige gefunden. Alle Tipps basieren auf der Rückmeldung mittels AutoFilter.Filters(1).Criteria1
Dieses liefert mir aber quasi ja schon das konkrete Ergebnis des Filters.
Folgendes quick-and-dirty MAKRO liefert mir z.B. crit = "DG004". Ich benötige aber die originäre Eingabe im Filter "DG*".

Sub Makro1()
crit = Worksheets("Tabelle1").AutoFilter.Filters(1).Criteria1
End Sub

Hat jemand einen Tipp, wie ich den originären Filterbegriff in eine Variable ablegen kann?
Vielen Dank.
Viele Grüße,
AHK

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function ShowFilter(rng As Range) 'UDF that displays the filter criteria. 'posted by Tom Ogilvy 1/17/02 'To make it respond to a filter change, tie it to the subtotal command. '=showfilter(B2)&CHAR(SUBTOTAL(9,B3)*0+32) 'So the above would show the criteria for column B Dim filt As Filter Dim sCrit1 As String Dim sCrit2 As String Dim sop As String Dim lngOp As Long Dim lngOff As Long Dim frng As Range Dim sh As Worksheet Set sh = rng.Parent Application.Volatile If sh.FilterMode = False Then ShowFilter = "Alle" Exit Function End If Set frng = sh.AutoFilter.Range If Intersect(rng.EntireColumn, frng) Is Nothing Then ShowFilter = CVErr(xlErrRef) Else lngOff = rng.Column - frng.Columns(1).Column + 1 If Not sh.AutoFilter.Filters(lngOff).On Then ShowFilter = "No Conditions" Else Set filt = sh.AutoFilter.Filters(lngOff) On Error Resume Next sCrit1 = filt.Criteria1 sCrit2 = filt.Criteria2 lngOp = filt.Operator If lngOp = xlAnd Then sop = " And " ElseIf lngOp = xlOr Then sop = " or " Else sop = "" End If ShowFilter = sCrit1 & sop & sCrit2 End If End If End Function

Hallo Ihr Zwei,
leider klappt es mit der UDF bei mir irgendwie nicht.
Code in ein Modul kopiert und gespeichert. Modul / public function wird korrekt ausgeführt. Kein Problem.
Ich hatte zunächst etwas Probleme mit der Formel in der Zelle:
=showfilter(B2)&CHAR(SUBTOTAL(9,B3)*0+32)
Ich habe die deutsche Version und da hat Excel mit den Funktionsnamen auf Englisch Probleme. Zusätzlich musste ich in der Klammer bei SUBTOTAL ein Semikolon anstelle Komma setzen.
Meine an die Deutsche Version und auf Filter Spalte A angepasste Formel:
=showfilter(A2)&ZEICHEN(TEILERGEBNIS(9;A3)*0+32)
Dies liefert mir allerdings als Ergebnis: = DG004 or =DG005
Also nicht den von mir original eingegeben Filter "DG*"
Habe ich einen Fehler in der "übersetzten" Formel?

Was mich zudem wundert, wenn ich z.B. nach "AB*" filtere bleibt die "showfilter"-Zelle leer. Es wird auch kein Fehler angezeigt. Ich habe in meiner Tabelle noch einen Wert DG006 ergänzt und erneut mit "DG*" gefiltert. Auch hier bleibt die Zelle nun leer ?!?
@Klaus:
Was zeigt Dir denn die UDF an, wenn Du in Michaels Beispiel nach "Do*" filterst?
Da ist ja auch nur ein Wert mit Da* enthalten, nämlich Dada. Zeigt er Dir wirklich "Da*" oder "Dada" ?
Ich würde mich riesig freuen, wenn es damit klappen würde.
Habe ich irgendwo einen Fehler gemacht?
Anbei die Datei mit UDF: https://www.herber.de/bbs/user/107912.xlsm
Viele Grüße,
AHK

Beliebteste Forumthreads (12 Monate)

VBA Excel Autofilter Filterkriterium auslesen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Excel Autofilter Filterkriterium auslesen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread