Hallo Liebes Forum,
ich bin alles andere als ein VBA Kenner und versteher, habe mich jetzt aber notwendigerweise etwas rangetastet.
Folgendes Problem.
Ich nutze eine Benutzerdefinierte Fomel, die ich so mehrfach im Netz gefunden habe, um die Autofilterkriterien einer Tabelle auszulesen. Funktionierteanfangs auch gut. Jetzt aber leidernicht mehr und ich habe keine Idee warum. Achja,ich nutze Excel 2013.
Hier der Code der Formel
Function FilterKriterien(Rng As Range) As String
'Funktion um die Filterkriterien auszulesen
'Gibt an nach welchem Kriterium gefiltert wurde
Dim F As String
F = ""
On Error GoTo Finish
With Rng.Parent.AutoFilter
If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then GoTo Finish
F = .Criteria1
End With
End With
Finish:
FilterKriterien = F
End Function
Ich konnte schon feststellen, dass es an der Stelle
If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
hängt. Dabei springt er immer auf Finish.
In Excel selbst benutze ich die Funktion dann mit den Tabellen Überschriften Namen, sprich
Filterkriterien(TabelleXY[Spalte XY])
Habe es auch schon mit direkter Zelladresse z.B. B3 probiert. Selbes Problem.
Wie gesagt, es lief problemlos und jetzt nicht mehr.
|