Nach Monat filtern
09.02.2004 16:12:55
Joachim
Hab in der Recherche ein Makro gefunden indem ich über eine Inputbox nach dem Teil einer Zelle filtern kann.
Sub Filtern_AZ()
Dim q As Worksheet 'Quellblatt
Dim z As Worksheet 'Zielblatt
Set q = Worksheets("Mandantenliste")
Set z = Worksheets("Abrechnung")
Dim a As Variant
a = InputBox( _
prompt:="Aktenzeichen:", _
Default:=Format(""))
If a = "" Then Exit Sub
'vDat = CDate(vDat)
Range("d12").AutoFilter
Range("d12").AutoFilter _
Field:=4, Criteria1:="=" & a
End Sub
In Spalte A stehen nun Datums
12.02.2004
30.01.2004
23.01.2004
in dieser Form
nun möchte ich das Makro so abwandeln, das wenn ich die Inputbox 02 (Monat) eingebe diese gefiltert werden.
Ich hoffe ich habs einigermaßen erklärt
Schöne Grüße
Joachim