hätte noch eine Frage zum Auslesen der Autofilter Kriterien
Über folgenden Code aus der Recherche kann ich einzelne Positionen des
Autofilters auslesen, sprich wenn ich dann aus der Liste einen vorgegebenen
Eintrag auswähle, kann ich ihn damit dann anzeigen lassen
( in irgendeiner Zelle dann noch = GetFilter(1) dann hab ich dort diese Auswahl stehen ).
Function GetFilter(intSpalte As Integer) As String
Application.Volatile
If ActiveSheet.FilterMode And ActiveSheet.AutoFilterMode Then
If ActiveSheet.Autofilter.Filters(intSpalte).On Then
GetFilter = ActiveSheet.Autofilter.Filters(intSpalte).Criteria1
End If
End If
End Function
Nun mein Wunsch - sofern überhaupt möglich , im Autofilter gibt es ja das Suchfeld, wo man einen Eintrag tätigen kann, und anhand des Eintrages fängt der Autofilter schon während der Eingabe dort an zu filtern von Buchstabe zu Buchstabe bleiben dann immer weniger Spalten-Inhalte zu sehen.Würde ich da also zB. nur Auto eingeben , würde demnach meine Liste mit allen
Inhalten in denen teilweise auto drin vorkommt übrigbleiben , also auch automatik, autonom etc.
Alle haben schließlich die SUCHE " Auto " also gemeinsam, und genau das hätte ich gerne in einer Zelle stehen die Suchbedingung - nicht irgendein Kriterium das schon in der Auflistung final drin steht und das ich auch nur einzeln dann zeigt.
Sondern eben den Text den ich zuvor ins Suchfeld dort eingab damit danach dann letztlich gefiltert wird.
kann man .Criteria1 irgendwie gegen .Search ... austauschen damit das ginge ?
Hab ihr eine Idee ?
LG udo