Autofilter per Makro
05.06.2018 19:50:24
Heinz
Ich habe ein Makro das mir per Inputbox nach Datum das in der Spalte B steht filtert.
Es filtert auch richtig, NUR werden die Zeilen 3 bis 5 ausgeblendet.
Warum?
Könnte mir bitte jemand auf die Sprünge helfen?
Danke, Heinz
Option Explicit
Sub Datum_filtern()
Dim datAnfang As Date
Dim datEnde As Date
datAnfang = DateValue(InputBox("Anfangsdatum", "Datum eingeben!", "01.06.17"))
datEnde = DateValue(InputBox("Enddatum", "Datum eingeben!", "01.06.18"))
[A1:O3000].Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=">=" & datAnfang * 1, _
Operator:=xlAnd, Criteria2:="Anzeige