Autofilter nach Zellwert Datum setzen

Hallo, da ihr mir so prima geholfen habt, denke ich ihr habt für mein kleines Problem eine Lösung? Ich habe schon ziemlich viel probiert, bekomme es aber nicht hin:
Auf Blatt "Auswertung" Cells(20,30) steht die Zahl 2014 (als Datum)Zwei Zellen daneben steht "avi". Jetzt möchte ich nach diesen beiden Zellwerten auf sagen wir mal Blatt "Neu" einen Autofilter per VBA setzen. Hier mein Code:
Option Explicit

Sub Makro1()
Dim Kriterium1$, Kriterium2$
Kriterium1 = Sheets("Auswertung").Cells(20, 30)
Kriterium2 = Sheets("Auswertung").Cells(20, 32)
Selection.AutoFilter Field:=3, Criteria1:=Kriterium1
Selection.AutoFilter Field:=6, Criteria1:=Kriterium2
End 

Sub
Es werden auch die richtigen Spalten gefiltert, allerdings keine Werte aus dem Jahr 2014  _
ausgegeben. Halte ich jetzt den Mauszeiger über das kleine Filtersymbol in Spalte C, steht dort  _
"alles aus 2014". (In Spalte C stehen Werte als Datum im Format 1.1.2014) Manuell kann ich den Filter setzen, funktioniert und den Haken bei 2014 als Filter anklicken. Dann steht allerdings, wenn man wieder mit der Maus drüber geht. " ist gleich alles aus 2014".
Was mache ich falsch? Über einen Tip oder eine Lösung wäre ich euch sehr dankbar.
Gruß
Mike

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim Kriterium1 As Long, Kriterium2 As Long, Kriterium3 With Sheets("Auswertung") 'von 1.1.Jahr Kriterium1 = DateSerial(Year(.Cells(20, 30)), 1, 1) 'bis 31.12.Jahr Kriterium2 = DateSerial(Year(Kriterium1), 12, 31) Kriterium3 = .Cells(20, 32) End With With Sheets("Neu") If .AutoFilterMode Then If .FilterMode Then .ShowAllData .AutoFilter.Range.AutoFilter Field:=3, Criteria1:= _ ">=" & Kriterium1, Operator:=xlAnd, Criteria2:="

Hallo Tino, danke für deine Hilfe!
Den ersten Fehler habe ich gefunden, war zu blöd zu kopieren. Sorry. Funktioniert jetzt BESTENS!! Danke.
NUr das zweite Problem, dass der Autofilter nicht "alleine" anspringt hab ich noch nicht lösen können.Hier mein fertiger Code:
Sub Test()
Sheets(Sheets("Auswertung").Range("N10").Value).Select
Range("C2").Select
Dim Kriterium1 As Long, Kriterium2 As Long, Kriterium3
With Sheets("Auswertung")
Kriterium1 = DateSerial(Year(.Cells(11, 30)), 1, 1)
Kriterium2 = DateSerial(Year(Kriterium1), 12, 31)
Kriterium3 = Sheets("Auswertung").Cells(20, 32)
End With
'Selection.AutoFilter Field:=3, Criteria1:=Kriterium1, Operator:=xlAnd, Criteria2:=Kriterium2
'Selection.AutoFilter Field:=6, Criteria1:=Kriterium3
With Sheets(Sheets("Auswertung").Range("N10").Value)
If .AutoFilterMode Then
If .FilterMode Then .ShowAllData
.AutoFilter.Range.AutoFilter Field:=3, Criteria1:= _
">=" & Kriterium1, Operator:=xlAnd, Criteria2:=" .AutoFilter.Range.AutoFilter Field:=6, Criteria1:=Kriterium3
End If
End With
Danke für die HIlfe!
Gruß
Mike

With Sheets("Auswertung") Kriterium1 = DateSerial(Year(.Cells(11, 30)), 1, 1) Kriterium2 = DateSerial(Year(Kriterium1), 12, 31) Kriterium3 = Sheets("Auswertung").Cells(20, 32) End With 'Selection.AutoFilter Field:=3, Criteria1:=Kriterium1, Operator:=xlAnd, Criteria2:=Kriterium2 'Selection.AutoFilter Field:=6, Criteria1:=Kriterium3 With Sheets(Sheets("Auswertung").Range("N10").Value) If Not .AutoFilterMode Then .Range("A1:Z1").AutoFilter 'Bereich Filter End If If .FilterMode Then .ShowAllData .AutoFilter.Range.AutoFilter Field:=3, Criteria1:= _ ">=" & Kriterium1, Operator:=xlAnd, Criteria2:="

Beliebteste Forumthreads (12 Monate)

Autofilter nach Zellwert Datum setzen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autofilter nach Zellwert Datum setzen

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread