Autofilter per VBA
17.05.2006 09:36:18
kiepetz
Ich möchte beliebige Spalten, in denen Datumswerte im Format tt.mm.yyyy
eingetragen sind mittels Autofilter filtern.
Erschwerdend wird´s, da ich nach Monaten filtern möchte. (zB 01.2006)
Um dies zu lösen, habe ich nachfolgendes Makro erstellt. Leider bringt dieses nicht die gewünschten Daten sondern immer nur leere Zellen.
Für Eure Hilfe wäre ich sehr dankbar !
mfg
Rudi
Sub Sucheingabe_Monat()
'makro für datum suchen
Dim mldg, titel, voreinstellung, wert, wert1, wert2
Dim blatt As String
Dim field As Integer
mldg = "gewünschtes Monat eingeben (Format: MM.JJJJ)- 'alles' für alle"
titel = "Sucheingabe"
voreinstellung = "01.2006"
wert = InputBox(mldg, titel, voreinstellung)
blatt = ActiveSheet.Name
field = ActiveCell.Column
wert = DateValue(wert)
wert2 = DateAdd("m", 1, wert) - 1
wert1 = DateAdd("d", -1, "01." + wert)
wert1 = ">=" & wert1
wert2 = "<=" & wert2
If wert = "alles" Then
Worksheets(blatt).ShowAllData
Else
Selection.AutoFilter field:=field, Criteria1:=wert1, Operator:=xlAnd, Criteria2:=wert2
End If
End Sub