Filterkriterium als String übergeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Adelhorst,
Danke für die Antwort. Deinen Vorschlag habe ich gleich mal getestet.
Leider ohne Erfolg.

Dim aok As String
aok = ThisWorkbook.Sheets(1).aok.Value
Sheets(3).Cells.AutoFilter field:=AOK_spalte, Criteria1:=Cstr(aok)

aok bekommt den Wert "=E1+ZS1"
Der Autofilter nimmt trotzdem "E1+ZS1" als Kriterium (kann man im Autofilter nachgucken)
Übrigens:
Den Trick mit dem doppelten Gleichheitszeichen kann ich in meinem Fall nicht anwenden, da ich später auch einen Spezialfilter verwende. Dieser hat nicht 1 Filterkriterium, sondern gleich ~40 welche alle einzeln erst geprüft, verändert und später zurückverändert werden müssten.

Sheets(3).Cells.AutoFilter field:=AOK_spalte, Criteria1:= "=" & aok

Ich suche also einen Methode, wie ich VBA erkläre, das er "=E1+ZS1" nicht als Formel interpretieren soll.

Hallo Tino,
daran habe ich auch schon gedacht. Ich erwähnte dies auch in meiner 1. Antwort :)
Für den Autofilter ist diese Variante geeignet.
Leider nicht für den Spezialfilter. Ich will auch erklären warum:
Gegeben ist eine Tabelle mit 16.000 Zeilen, welche gefiltert werden soll.
Gegeben ist ebenfalls ein zweites Blatt mit einer Spalte, in der ~40 Filterkriterien stehen:
Diese sieht in etwa so aus: (Anzahl und Inhalt ist variabel)

AOK
=XB1+XA7
=E17+S1
=E18+S1
=E19+S1
=E20+S1
=E21+S1
E22+S1
=E23+S1
=E24+S1
=E25+S1
=E26+S1
=E28+S1
E29+S1
=E30+S1
=E31+S1
=E32+S2
=E33+S1
E34+S1
E35+S1
E36+S1
=E37+S1
=E38+S1
E39+S1
=E40+S1
E41+S1
=E42+S1
=E43+S1
=E20+S2
E23+S2
=E27+S1
=E32+S1
=E32+S3
=E40+S2
E40C+S3
=XB2+XA8
=XB2+XB8
=YG0+YA1

Der Spezialfilter wird dann wie folgt angewendet:

Sheets(1).UsedRange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range( _
Sheets(2).Cells(1, 1), Sheets(2).Cells(endzeile, 1))

Alle Kriterien ohne Gleichheitszeichen funktionieren korrekt. Die anderen jedoch nicht.
Um mit der vorgeschlagenen Lösung arbeiten zu können, müsste:
- jede Zelle geprüft werden, ob das erste Zeichen ein "=" ist
- wenn ja, dann setzte ein 2. "=" davor
- merke dir die Zelle, in der du etwas verändert hast
- wende den Spezialfilter an
- lösche das 2. "=" wieder in den vorher gemerkten Zellen
Das ist absolut machbar - jedoch würde es mich ärgern, wenn es keinen einfacheren Weg geben würde.
Denn das richtige Filterkriterium ist ja an sich schon vorhanden.
Er darf es nur nicht als Formal interpretieren.
Nur falls ihr alle sagt "Nein, das geht nur so", dann mache ich das so :)

With Sheets(2) .Range("A1") = "AOK" .Range("B1") = "AOK" .Range("A2") = "'=E29+S1" .Range("B2") = "'E29+S1" Sheets(1).UsedRange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("A1:B2") End With

Beliebteste Forumthreads (12 Monate)

Filterkriterium als String übergeben

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filterkriterium als String übergeben

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread