5charly.xls

Forumthread: 5charly.xls
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: 5charly.xls

5charly.xls

08.08.2002 12:41:14

wolfgang

hbe probleme beim ausführen des makros in dieser tabelle, sobald ich diese wie folgt angepasst habe:
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.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: 5charly.xls

08.08.2002 13:23:57

Ralf Sögel
Re: 5charly.xls

08.08.2002 13:38:30

wolfgang
Re: 5charly.xls

08.08.2002 15:05:38

Charlie
Re: 5charly.xls

08.08.2002 15:28:28

wolfgang

Re: 5charly.xls

08.08.2002 13:23:57

Ralf Sögel

Sub FilternKopieren()
Range("A1").AutoFilter Field:=6, Criteria1:=">=10.06.2002", Operator:=xlAnd, _
Criteria2:="<=16.06.2002" & CDbl(Date)
Cells.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("SAKW52").Range("A1")
ActiveSheet.AutoFilterMode = False
End Sub

Re: 5charly.xls

08.08.2002 13:38:30

wolfgang

klapp leider auch nicht.

Re: 5charly.xls

08.08.2002 15:05:38

Charlie

Hallo, Wolfgang!

Das kann so nicht funktionieren, weil a) der Autofilter beim Filtern nach Datum dieses als Zahl im Format "Double" benötigt und b) dem 2. Filterkriterium noch das aktuelle Tagesdatum als Double angehängt wird. Folgender Code funktioniert - zumindest bei mir:

Viel Erfolg,
Charlie