Office: (Office 2010) VBA ohne Activate und select

Hallo,
ich habe ein Makro mit dem ich auf verschiedene Arbeitsmappen zugreife, Autofilter setzte und Bereiche kopiere, um sie dann in die Hauptmappe einzufügen.
Da ich dies mittels Makro Aufzeichnung bewerkstelligt habe, habe ich natürlich die Befehle ACTIVATE und SELECT im Makro, was alles sehr langsam macht und den Bildschirm zum flackern bringt.
Auf 'Application.ScreenUpdating = False' reagiert das makro auch nicht.

Also müssen die ACTIVATE und SELECT Befehle raus.
Und da tue ich mich schwer.

Hier mal ein Code Ausschnitt:
Code:

Bisher habe ich nur den obersten Teil hinbekommen ohne die besagten Befehle
Code:

Das klappt auch.
Aber bei allem was danach kommt tue ich mich schwer und scheitere mit jedem Ansatz.

Das 'Range("A10").Select' soll übrigends bewirken das am Ende des Kopiervorgangs die Zelle A10 angewählt ist.

Ich hoffe jemand kann mir weiterhelfen.

:)

 

HAllo,

SelectRange ???
Was ist das für ein Befehl ?

ransi

 

Den Befehl 'Range("A10").Select' hat mir der Makrorecorder aufgenommen als ich als letzten Schritt bei der Aufzeichnung die Zelle A10 angewählt habe.

Das Makro läuft ja auch und macht das was es soll, nur sehr langsam und mit den lästigen Bildschirmgeflacker.

Nun habe ich durch googeln herrausgefunden das die Befehle ACTIVATE und SELECT aus den Makros raus müssen.
Also ohne die andere Arbeitsmappe erst zu aktivieren gleich den Kopie Befehl ausführen.

 

Code:

??? = fehlende Blattbezeichnungen

 

Supi, Danke
habe Deinen Code gerade mal eingebaut und ergänzt mit den fehlenden Blattbezeichnungen.
Und funktioniert tadellos.

Werde jetzt danach meinen kompletten Code ändern.
Sollte ich noch irgendwo hängenbleiben melde ich mich noch einmal.

Ansonsten Danke und ein schönes Fest

 

Ich bin es nochmal.

Habe doch noch ein Problem mit dem Code.

Das Makro durchläuft ja eine Schleife, wo es jedesmal Daten in einer anderen Arbeitsmappe filtert, kopiert und in ein Template einfügt.
Dann wird das Template unter einem bestimmten Namen gespeichert, und die Schleife läuft weiter mit den nächsten Daten.

Nun zu Anfang ist das Template ja leer, also gibt es mit dem Code auch keine Probleme.
Wenn die Schleife dann ab dem 2.Durchlauf die nächsten Daten kopiert und ins Template einfügt, stehen noch die alten drin, die soweit überschrieben werden wie Datensätze beim Filtern kopiert wurden.

Deswegen hatte ich in meinem "Urcode" die Zellen $A$1:$K$7000 nach dem Filtern markiert und kopiert.
So war sichergestellt, das alles bisherige auf dem Template beim einfügen überschrieben wird und somit keine anderen Daten mehr vorhanden sind.

Hier noch einmal mein alter Codeschnipsel
Code:

Und hier der neue, der aber nicht den kompletten Template Inhalt ab Zelle A10 überschreibt
Code:

Wie kann ich das im neuen Code angeben, das er in der Quelldatei nach dem Filtern die Zellen $A$1:$K$7000 kopiert?

 

Vorm Kopieren säubern:

Code:

 

Super Danke. Das klappt.