VBA Autofilter mit mehreren Kriteren und Variale

[stchwint]

Code:

Sub Autofilter()   
Dim Ansicht1 as String
Dim Jahr1 as Integer

Jahr1=2020
Ansicht1 = Jahr1
ActiveSheet.Range("$A$23:$R$509").Autofilter Field:=1, Criteria1:=Array( _
        Ansicht1, "2022", "2023", "2024", "Ergebnis", "Gesamt"), Operator:=xlFilterValues

End Sub

Hallo Zusammen,
habe wieder mal ein Problem dass ich selber nicht lösen kann :D

ich möchte über VBA im Autofilter mehrere Kriterien setzen, sobald ich aber eine Variable als Kriterium einfüge funktioniert der Code zwar, aber das Kriterum der Variable wird nicht gesetzt. Egal ob als Integer (Jahr1) oder String (Ansicht1)

Gruß stchwint

[Kuwer]

Hallo,

in meinem Nachbau funktioniert es mit der Stringvariante.

Gruß Uwe

[stchwint]

Hallo Kuwer,

danke für deine Antwort. Bei mir funktioniert es jetzt auch. Jahr1 ist bei mir noch eine Public Variable mit einem bestimmten Zellwert, der sich ändern kann. Ich muss immer erst ein Makro laufenlassen der für die Variable den Zellwert zuweist.

[stchwint]

Habe nun ein neues Problem,

der VBA-Code funktioniert und wird richtig ausgeführt, aber es kommt jedes mal eine Fehlermeldung " Die Autofilter-Methode des Range Objekts konnte nicht ausgeführt werden". Selbst mit einem anderen AutoFilter-Makro hängt der Code dann an der selben Stelle. Der Code hängt immer an der Stelle 'a oder b'. Möchte ja eig. nur dass er mithilfe des VBA-Autofilters Zeilen möglichst schnell ein- und ausblendet. Für Jede Ansicht sollen dann die Pfeile des Autofilters nicht mehr sichtbar sein.

Die Excel stürzt wegen dem Code auch öfters ab und schließt sich einfach, obwohl die Ausführung an sich funktioniert.

Code:

Sub Autofilter123()
Dim Ansicht As String
Dim Jahr1s As String
Dim Jahr2s As String
Dim Jahr3s As String
Dim Jahr4s As String
Dim Jahr5s As String
'MsgBox Jahr1
Call Jahre_variablen_definieren
Jahr1s = Jahr1
Jahr2s = Jahr2
Jahr3s = Jahr3
Jahr4s = Jahr4
Jahr5s = Jahr5

Ansicht = Worksheets(kg_TabelleErgebnisName).ComboBox1.Value

Dim Liste As Range
Set Liste = Worksheets(kg_TabelleErgebnisName).Range("A23:R23")



'Liste.Autofilter field:=1
If Ansicht = "Alle" Then GoTo 2

Liste.Autofilter Field:=1, Criteria1:=Array(Ansicht, "Ergebnis"), Operator:=xlFilterValues 'a
Liste.Autofilter Field:=5, Criteria1:="<>Muster"

GoTo 3

2:



If Frz_Jahre = 1 Then
Liste.Autofilter Field:=1, Criteria1:=Array("Gesamt", "Ergebnis", Jahr1s), Operator:=xlFilterValues
End If
If Frz_Jahre = 2 Then
Liste.Autofilter Field:=1, Criteria1:=Array("Gesamt", "Ergebnis", Jahr1s, Jahr2s), Operator:=xlFilterValues

End If

If Frz_Jahre = 3 Then
Liste.Autofilter Field:=1, Criteria1:=Array("Gesamt", "Ergebnis", Jahr1s, Jahr2s, Jahr3s), Operator:=xlFilterValues
End If
If Frz_Jahre = 4 Then
Liste.Autofilter Field:=1, Criteria1:=Array("Gesamt", "Ergebnis", Jahr1s, Jahr2s, Jahr3s, Jahr4s), Operator:=xlFilterValues
End If
If Frz_Jahre = 5 Then
Liste.Autofilter Field:=1, Criteria1:=Array("Gesamt", "Ergebnis", Jahr1s, Jahr2s, Jahr3s, Jahr4s, Jahr5s), Operator:=xlFilterValues 'b
End If

3:
Liste.Autofilter Field:=5, Criteria1:="<>Muster"

Liste.Autofilter
End Sub