Nach Monat und Jahr filtern

Hallo Zusammen,
in meiner Tabelle sind in einer Spalte Datumswerte enthalten mit Tag, Monat und Jahr.
Nun möchte ich aber die Filter per VBA so setzen können, dass ich nach Monat und Jahr filtern kann.
Ich dachte das würde in etwa so gehen, dass ich für Tag einen Platzhalter hernehmne, also "*", dann für Monat die Monatszahl verwende, also z.B. 02 und dann noch das Jahr.
In der Summe also: *.02.2016
Das funktioniert aber leider nicht.
Wie bitte muss der Code aussehen, dass ich nach Monat und Jahr filtern kann?
Bisher habe ich folgendes:

If wks_Aus.Cells(2, 19) = -1 Then
Da32 = "Februar" & wks_Aus.Cells(3, 3) 'in Zelle 3,3 steht das Jahr
End If
With wks_Art
.Range("AA1").AutoFilter 27, Array(Da31, Da32, Da33, Da34, Da35, Da36, Da37, Da38, Da39,  _
Da40, Da41, Da42), Operator:=xlFilterValues
End With

Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim ws As Worksheet Dim rng, c As Range Dim jahr, monat As String Dim i, anfang, ende As Long Dim datum As String Set ws = ThisWorkbook.Sheets(1) With ws i = .Cells(.Rows.Count, 1).End(xlUp).Row Set rng = .Range(.Cells(1, 1), .Cells(i, 1)) For Each c In rng If IsNumeric(Right(c.Value, 4)) Then datum = c.Value anfang = InStr(datum, "*.") ende = Len(datum) monat = Mid(datum, anfang + 2, 2) jahr = Mid(datum, (anfang + 5), 4) End If c.Offset(, 1).Value = monat & "-" & jahr Next c End With End Sub

Dim RefDatum As Date Dim vonFilterDatum As Long, bisFilterDatum As Long 'kann auch aus einer Zelle sein RefDatum = Date 'Monatsanfang vonFilterDatum = DateSerial(Year(RefDatum), Month(RefDatum), 1) 'Monatsende bisFilterDatum = DateSerial(Year(RefDatum), Month(RefDatum) + 1, 0) With wks_Art .AutoFilter.Range.AutoFilter Field:=27, Criteria1:= _ ">=" & vonFilterDatum, _ Operator:=xlAnd, _ Criteria2:="

Dim RefDatum As Date Dim vonFilterDatum As Long, bisFilterDatum As Long 'kann auch aus einer Zelle sein RefDatum = Date 'Monatsanfang vonFilterDatum = DateSerial(Year(RefDatum), Month(RefDatum), 1) 'Monatsende bisFilterDatum = DateSerial(Year(RefDatum), Month(RefDatum) + 1, 1) With wks_Art .AutoFilter.Range.AutoFilter Field:=27, Criteria1:= _ ">=" & vonFilterDatum, _ Operator:=xlAnd, _ Criteria2:="

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

151 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nach Monat und Jahr filtern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

151 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread