Autofilter
10.11.2005 09:14:07
T.Stemmler
Ich will den jeweils aktiven Filter auslesen und erhalte mit meiner Methode immer den Ausdruck + =.
Sub FilterInhaltAnzeigen()
Dim FilterInhalt As Variant
If Sheets("Fehleranalyse3").AutoFilterMode Then
FilterInhalt = Sheets("Fehleranalyse3").AutoFilter.Filters(1).Criteria1
End If
MsgBox (FilterInhalt)
End Sub
Beispiel "=Filter1". Wie vermeide ich das Gleichheitszeichen?
Wer kann mir helfen?
Gruß Thomas S.
Anzeige