Office: filterkriterium in zelle anzeigen

moin,

wie kann ich das filterkriterium (Autofilter) in einer zelle anzeigen?

cu brandy

:)

 

Moin, brandy,

meines Wissens nur per VBA möglich - siehe Autofilter-Kriterien nach dem Filtern anzeigen.

 

moin,

habe den code gerade abgetippt:

Sub FilterCriterial()
Dim iRow As Integer, iCol As Integer
iRow = Range("A1").CurrentRegion.Rows.Count + 2
iCol = 1
Do Until IsEmpty(Cells(1, iCol))
With ActiveSheet.AutoFilter.Filters(iCol)
If .On Then

End If
End With
iCol = iCol + 1
Loop
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Cells(iRow + 1, 1)

End Sub


für die makierte Zeile gibt xl den Laufzeitfehler 438 an ???

bin für hilfe dankbar.

cu brandy

 

Moin, brandy,

abgetippert schon, aber eine Zeile vergessen: diejenige, wo das Kriterium abgefragt wird... Ich kann darüberhinaus keinen Hinweis finden, welche Zeile denn nun den LZF bringt.

Nun habe ich Zugang zum Originalbeispiel auf der CD, aber sowohl gestern Abend als auch eben hat der folgende Code sein "Bestes" gegeben - die fehlende Zeile wurde hervorgehoben (Dank an Hans W. Herber, Link siehe oben):

Code:

 

moin,

@jinx:
ja die gelbe zeile ist genau die mit dem lfz, das forum hatte die eingabe mit "rot" nicht angenommen und verschluckt.
die zeile hab ich auch im code ???

Hab deinen code nochmal hereinkopiert und gibt es den lzf1004 aber wenn man dann auf beenden geht steht die filterregel im kästchen.

es geht also bedingt.

cu brandy

 

Moin, brandy,

könntest Du bitte einmal Deine Mappe als Anhang einstellen - bei der Beispielmappe ist unter XL8-XL11 (!!!) kein Laufzeitfehler aufgetreten, sondern der Code läuft sauber durch und produziert das erwartete Ergebnis.

 

moin,

@ jinx: werde die mappe anhängen.
Habe am Wochenende den Fehler für den ersten lzf gefunden: es muss heißen criteria1 ("eins") und nicht "l".

Habe den code soweit modifizieren können, dass er in der mappe läuft, mit der einschränkung, das für die filterbedingung "entspricht" ein lzf 1004 auftritt. ich werde diese funktion aber nicht benötigen.

die Anzeige funktioniert bisher aber nur für das Filterkriterium in Spalte C, kann man das auch noch zusätzlich für die Spalten D und E lösen?
(geht das mit criteria2?), wenn ja, wie?


cu brandy

 

Moin, brandy,

bei der von Dir angewandten Vorgehensweise wurde immer nur das Element des ersten Autofilters abgefragt - da fehlt die Beziehung zu den einzelnen abgefragte Zellen in der Art:

Code:

 

moin,

danke das hat geholfen.

cu brandy