Umstellen einer langen Abfrage in Array
12.12.2018 06:33:39
Daniel
ich habe mir eine "Mammutabfrage" gebaut, um Daten von einem Arbeitsblatt in andere Blätter zu übertragen.
Hier wird immer wieder ein Filter gesetzt, Daten übertragen, nächster Filter usw.
Das Makro ist wahnsinnig lang und ich würde es gerne verschlanken, habe aber von Arrays absolut keine Ahnung.
Es wäre schön, wenn mir hier jemand einen Denkanstoss geben kann und ein bisschen auf die Sprünge hilft.
Hier ein Codeauszug aus meinem aktuellen Makro
Sheets("AWM").Select
ActiveSheet.ListObjects(1).Range.AutoFilter Field:=5, _
Criteria1:="Kriterium1"
Application.CutCopyMode = False
Selection.Copy
Sheets("Blatt7").Select
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("AWM").Select
ActiveSheet.ListObjects(1).Range.AutoFilter Field:=5, _
Criteria1:="Kriterum2"
Application.CutCopyMode = False
Selection.Copy
Sheets("Blatt7").Select
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Die Kriterien und die Blätter wechseln, da aus über 5000 Datensätzen auf etwa 40 Blätter verteilt wird.
Ich brauche wirklich nur einen Denkanstoss damit ich mir das Array zusammenbauen kann, falls das überhaupt geht (?)