Abfrage wenn Autofilter_criteria leer ist

Hallo,
gestern habe ich den ganzen Tag an folgendem Problemm gessesen.
ich habe eine Funktion aus dem Web übernommen, die mir den ersten gefilterten Wert von Autofilter übernimmt:

Function AutoFilter_Criteria(Header As Range) As String
Dim strCri1 As String, strCri2 As String
Application.Volatile
With Header.Parent.AutoFilter
With .Filters(Header.Column - .Range.Column + 1)
If Not .On Then Exit Function
strCri1 = .Criteria1
If .Operator = xlAnd Then
strCri2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
strCri2 = " OR " & .Criteria2
End With
End With
AutoFilter_Criteria = strCri1
End If
Ich möchts diese dahingegen werweitern, das wenn nicht gefiltert ist, "kein Filter gesetzt"  _
angezeigt wir, dazu habe ich die Fkt folgendermaßen angepasst:

Function AutoFilter_Criteria(Header As Range) As String
Dim strCri1 As String, strCri2 As String
Application.Volatile
If Criteria1 = False Then
AutoFilter_Criteria = "Kein Filter gesetzt"
Else
With Header.Parent.AutoFilter
With .Filters(Header.Column - .Range.Column + 1)
If Not .On Then Exit Function
strCri1 = .Criteria1
If .Operator = xlAnd Then
strCri2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
strCri2 = " OR " & .Criteria2
End If
End With
End With
AutoFilter_Criteria = strCri1
End If
End Function

also die Zeilen

If Criteria1 = False Then

AutoFilter_Criteria = "Kein Filter gesetzt"

Else

eingefügt, aber es klappt leider nicht. ich habe auch alle möglichen Arten von Abfragen versucht ohne Erfolg.

Könnt Ihr mir da weiter helfen ?

Danke im Voraus

Fra

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FilterAnAus() With ActiveSheet If .AutoFilterMode = False Then MsgBox "Filtermodus ist aus" Else If .FilterMode = False Then MsgBox "Filter eingeschaltet, aber keine Auswahl getroffen" Else MsgBox "Filter Auswahl wurde getroffen" End If End If End With End Sub

Sub FilterAnAus() With ActiveSheet If .AutoFilterMode = False Then MsgBox "kein Filter gesetzt" '"Filtermodus ist aus" Else If .FilterMode = False Then MsgBox "kein Filter gesetzt" '"Filter eingeschaltet, aber keine Auswahl _ getroffen" Else 'Hier DEIN MAKKROTEIL End If End If End With End Sub

Hallo,
so?

Option Explicit

Function AutoFilter_Criteria(Header As Range) As String

    Dim strCriteria As String

    Application.Volatile

    With Header.Parent.AutoFilter
        With .Filters(Header.Column - .Range.Column + 1)
            If .On Then
                strCriteria = .Criteria1
                If .Criteria2 <> "" Then
                    If .Operator = xlAnd Then
                        strCriteria = strCriteria & " AND " & .Criteria2
                    ElseIf .Operator = xlOr Then
                        strCriteria = strCriteria & " OR " & .Criteria2
                    End If
                End If
            Else
                strCriteria = "Kein Filter gesetzt"
            End If
        End With
    End With
    AutoFilter_Criteria = strCriteria
End Function

das funktioniert natürlich nicht wenn du aus der Liste Werte auswählst, denn dann ist Criteria1 ein Array.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Abfrage wenn Autofilter_criteria leer ist

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread