makro fuer AUTOFILTER vereinfachen
02.07.2006 22:00:21
th.heinrich
wie erkennbar soll nach Monaten gefiltert werden, aber auch andere zeitraeume sollen moeglich sein. der code wird ueber eine Listbox aufgerufen.
Option Explicit
Sub liste()
Dim DatumVon As Date
Dim DatumBis As Date
Dim filt As Variant
Worksheets("Werte").Activate
On Error Resume Next
Worksheets("Werte").ShowAllData
filt = Worksheets("Krit").Range("b1").Value
'MsgBox filt
'filt = InputBox("Bitte Monat eingeben")
'If Worksheets("Tabelle1").Range("b1").Value = 1 Then
If filt = 1 Then
DatumVon = "12.03.06"
DatumBis = "31.03.06"
Selection.AutoFilter Field:=1, Criteria1:=">=" & CDbl(DatumVon), _
Operator:=xlAnd, Criteria2:="<=" & CDbl(DatumBis)
End If
If filt = 2 Then
DatumVon = "01.04.06"
DatumBis = "30.04.06"
Selection.AutoFilter Field:=1, Criteria1:=">=" & CDbl(DatumVon), _
Operator:=xlAnd, Criteria2:="<=" & CDbl(DatumBis)
End If
If filt = 3 Then
DatumVon = "01.05.06"
DatumBis = "31.05.06"
Selection.AutoFilter Field:=1, Criteria1:=">=" & CDbl(DatumVon), _
Operator:=xlAnd, Criteria2:="<=" & CDbl(DatumBis)
End If
If filt = 4 Then
DatumVon = "01.06.06"
DatumBis = "30.06.06"
Selection.AutoFilter Field:=1, Criteria1:=">=" & CDbl(DatumVon), _
Operator:=xlAnd, Criteria2:="<=" & CDbl(DatumBis)
End If
End Sub
welche moeglichkeit besteht das ganze zu verkuerzen?
vielen dank
gruss thomas