Sub
Filtern2()
Dim
Zeile
As
Variant
Dim
Ende
As
Variant
Dim
tofind
As
Variant
Dim
found
As
Variant
Dim
Zeile2
As
Variant
Dim
tofind2
As
Variant
Dim
found2
As
Variant
Application.ScreenUpdating =
False
Ende = Cells.SpecialCells(xlCellTypeLastCell).Row
tofind2 = InputBox(prompt:=
"Bitte Anfangsdatum des Messzeitraums eingeben! Datenformat: dd-mm-yy"
, Title:=
"Datum"
)
If
tofind2 =
""
Then
Exit
Sub
tofind = InputBox(prompt:=
"Bitte Enddatum des Messzeitraums eingeben! Datenformat: dd-mm-yy"
, Title:=
"Datum"
)
If
tofind =
""
Then
Exit
Sub
For
Zeile = Ende
To
found
Step
-1
Set
found = Application.Match(tofind.Value, ActiveSheet.Columns(6), -1)
If
Cells(Zeile, 6) > found
Then
Rows(Zeile).EntireRow.Delete Shift:=xlUp
Next
Zeile
found2 = Columns(6).Find(what:=tofind2, LookIn:=xlValues, Lookat:=xlWhole).Row
For
Zeile2 = found2
To
13
Step
-1
If
found2 > Rows(Zeile2)
Then
Rows(Zeile2).Delete
Next
Zeile2
Application.ScreenUpdating =
True
End
Sub