Thema: Daten kopieren wenn kein Datum oder Datum > Heute

StandardModule: Modul1

Sub Makro1()

 Makro1 Makro
 Makro am 06.01.2001 von Hans W. Herber aufgezeichnet



    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="=", Operator:=xlAnd, _
        Criteria2:=">06.01.2001"
    Selection.AutoFilter Field:=3, Criteria1:="=""""", Operator:=xlAnd, _
        Criteria2:=">06.01.2001"
    Selection.AutoFilter Field:=3, Criteria1:="=", Operator:=xlOr, Criteria2 _
        :=">06.01.2001"
End Sub

StandardModule: basMain

Sub FilternKopieren()
   Range("A1").AutoFilter _
      Field:=3, Criteria1:="=", Operator:=xlOr, _
        Criteria2:=">" & CDbl(Date)
   Range("A1").CurrentRegion _
      .SpecialCells(xlCellTypeVisible).Copy _
      Worksheets("Tabelle2").Range("A1")
   ActiveSheet.AutoFilterMode = False
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren