5charly.xls
08.08.2002 10:41:14
wolfgang
Sub FilternKopieren()
Range("A1").AutoFilter Field:=6, Criteria1:=">=10.06.2002", Operator:=xlAnd, _
Criteria2:="<=16.06.2002" & CDbl(Date)
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("SAKW52").Range("A1")
ActiveSheet.AutoFilterMode = False
End Sub
der makro wird ausgeführt, es wird aber nur die zeile A1 kopiert.
kann das an der größe der tabelle (ca. 6300 zeilen) liegen?
führe ich den filter und das kopieren manuell aus, klappt alles.