Datum filtern
20.02.2004 12:15:57
sigi
Über eine Userform möchte ich in der Tabelle "Übersicht"
nach einem Datum filtern lassen und diese dann nach
"Ü-Übersicht" kopieren.
Das Datum ist in einer weiteren Tabelle "Eingabe" unter Namen "Filter"
angegeben.
Der AutoFilter wird zwar aktiviert jedoch wird das Datum nicht angezeigt
bzw. kopiert.
Kann mir jemand helfen1
Gruß
Sigi
Private Sub CommandButton6_Click()
Dim rngAct As Range
Application.ScreenUpdating = False
Sheets("Ü-Übersicht").Visible = True
Sheets("Ü-Übersicht").Select
ActiveSheet.Unprotect
Sheets("Übersicht").Visible = True
With Worksheets("Ü-Übersicht")
Range("A2:H5000").Select
Selection.ClearContents
Sheets("Übersicht").Select
Range("A1").AutoFilter _
Field:=1, Criteria1:=(Range("Filter").Text) & CDbl(Date)
Set rngAct = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
rngAct.Copy .Range("A2")
.Rows(1).Delete
.Select
End With
Application.ScreenUpdating = True
End Sub