Ich hoffe ich kann das verständlich beschreiben.: Und zwar habe ich eine Tabelle "Neu", in der in Spalte D gaaaanz viele unterschiedliche Dateinamen (16 Mögliche Endungen) untereinander stehen. In Spalte "C" steht das zugehörige Datum. (unterschiedlich aus dem Zeitraum Jahr 2010 bis 2016. In Spalte A steht die Größe der jeweiligen Datei. Also Spalte A1: 1,4MB, Spalte D1: blaba.zip, Spalte C1:2010. Es kommen schonmal 45000 Einträge zustande!
Zuerst habe ich einen Filter per VBA auf das JAhr gesetzt. Funktioniert wunderbar. Danach starte ich mehrere Filter, die per VBA die Spalte A nacheinander nach den einzelnen Endungen durchsucht. Die ganze Prozedur wiederholt sich 16x6 mal. (16 Endungen für 6 Jahre)
Den Wert aus der Filterung (A1)füge ich dann in ein Blatt"Auswertung" tabellarisch ein. Hier mein Beispiel Codeschnipsel dazu:
'nach _mp4_filtern
ActiveSheet.Range("$A$1:$H$45000").AutoFilter Field:=4, Criteria1:= _
"=.MP4 (MP4 File)"
Range("A1").Select
Selection.Copy
Sheets("Auswertung").Select
Range("Q8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("NEU").Select
ActiveSheet.Range("$A$1:$H$45000").AutoFilter Field:=4
Range("D3").Select
Selection.AutoFilter
Das ganze läuft dann für jedes Jahr ab. (2010 bis 2016), also 6x für alle 16 Endungen, eintragen usw. Mit den so erzeugten Daten fülle ich ein Diagramm, das am Ende dargestellt wird.
Jetzt meine eigentliche Frage: Kann man so etwas eleganter lösen? Das MAkro funktioniert zwar prima, dauert nur unheimlich lange.
Ist mit Sicherheit Anfänger Excel was ich hier gebastelt habe, wusste nur nicht, dass es doch so umfangreich werden würde.
Für eure Hilfe wäre ich sehr dankbar.
Gruß
Mike