Makro Kopieren von Autofilterergebnis
14.10.2013 11:52:35
Autofilterergebnis
ich habe ein Problem beim Kopieren von Filterergebnissen eines Autofilters.
Zum Ablauf: Ich filtere die Spalte H (Datum wann der Datensatz angelegt wurde) per Makro mit dem Autofilter. Als erstes werden die Datensätze nach dieser Spalte absteigend sortiert und dann für eine Quartalsauswertung (von zb. 1.1.2013 bis 1.4.2013) gefiltert (Eingabe des Auswertungszeitraumes per Textbox). Anschließend wird das Filterergebnis in ein extra Worksheet kopiert. Ich habe dazu folgenden Code (auch irgendwo in den Weiten des Netzes gefunden):
Worksheets("Jahrestabelle").Range("D5").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Worksheets("Auswertung").Range("D5").PasteSpecial Paste:=xlPasteValues
Das funktioniert auch wunderbar, solange beim Filtern Daten gefunden werden. Sollte es aber für den entsprechenden Zeitraum keine Daten geben dann läuft mir das Makro in einen Laufzeitfehler 1004 -keine Zellen gefunden-.
Ist soweit ja auch logisch, wo nichts ist kann auch nichts kopiert werden, er prüft ja ob Zellen sichtbar sind. Das ist hier halt nicht der Fall.
Ich kriege das weder mit on error resume next noch mit sonst etwas geregelt. Habe mir schon den Wolf gesucht bisher aber keine Lösung gefunden.
Jetzt schon Danke für die Mühe