Wechsel zwischen Mappen sehr verzögert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Alexander,
wenn Du Inhalte zwischen zwei Dateien (oder auch innerhalb einer Datei) austauschen möchtest, ist es erheblich performanter, die Daten NICHT über die Zwischenablage zu transportieren, sondern per
ZukopierenderBereich.copy Zielzelle
z.B. also
ActiveWorkbook.Sheets(1).usedrange ThisWorkbook.Sheets(1).Range("a1")
direkt zu kopieren, wenn man Formeln erhalten und Formate mit übertragen möchte. Sollen zwar die Formate, aber statt Formeln nur die Werte übertragen werden, ergänzt man die vorgenannte Zeile um eine weitere, die die Formeln entfernt, z.B.
ThisWorkbook.Sheets(1).usedrange.value = ThisWorkbook.Sheets(1).usedrange.value
Sollen nur die Inhalte, ohne Formate kopiert werden, geht das über
Zielbereich.value = Quellbereich.value
Damit das funktioniert, müssen allerdings Quell- und Zielbereich gleich groß sein. Beispiel: aus der gerade geöffneten Datei (ActiveWorkbook) sollen die Werte des ersten Blattes auf das erste Blatt der das Makro enthaltenden Datei (ThisWorkbook) übertragen werden:
Thisworkbook.sheets(1).range(ActiveWorkbook.sheets(1).usedrange.address).value = ActiveWorkbook.sheets(1).usedrange.value
Ohne Deinen Code zu kennen noch der Hinweis, dass Du für das Übertragen nicht zwischen den Dateien wechseln mußt - auch nicht, wenn Du den Weg über die Zischenablage / PasteSpecial nimmst (abgesehen davon, dass durch das Öffnen der Quelldatei diese zur aktiven Datei wird - aber das kann sie ja auch bleiben, bis sie wieder geschlossen wird)
Gruß, Jürgen

Hallo Jürgen,
Danke für Deine schnelle Antwort. Ich habe mein Programm dahingehend überarbeitet, dass ich möglichst alle Activate- and Select-Anweisungen rausgeschmissen habe, um die Anzahl der Wechsel zwischen Arbeitsmappen zu reduzieren. Außerdem benutze ich auf Deinen Rat hin nur Copy für "Alles Kopieren" und Zielbereich.value = Quellbereich.value für "Werte einfügen". Das verringert ebenfalls die Anzahl der langsamen Mappen-Wechsel.
Mappenwechsel werden jetzt im Programm nur noch durch eine Activate-Anweisung, .Open, .Close, .Save, .SaveAs ausgelöst (Ich bin sicher, dass PasteSpecial auch aktiviert; ich glaube, das war ab einer bestimmten Excel-Version neu). Gerne hätte ich wegen der mir unerklärlichen Langsamkeit überhaupt keine Mappenwechsel, was bestimmt nicht möglich ist, da ich ganze Verzeichnisse von Dateien automatisch abarbeiten will und daher öffnen, schliessen, speichern muss.
Eine Sache habe ich noch ausprobiert: Ich habe eine "Zwischenablage löschen"-Routine ergooglet. Wenn ich diese nach Ende meines Kopierprogramms im VBA-Editor per Hand starte, kann ich danach per Strg-Tab wieder in der gewohnten Schnelle zwischen den geöffneten Mappen wechseln. Wenn ich die "Zwischenablage löschen"-Routine aber als letzten Schritt im Kopierprogramm aufrufe, hat sie keine Wirkung. Ich verstehe das nicht.
Insgesamt ist die Performance durch die Verringerung der Mappenwechsel viel besser geworden. Es ist trotzdem schade, dass die Mappenwechsel, die verbleiben, das Programm so verlangsamen.
Vielleicht hat jemand aus der Forums-Gemeinde noch eine Idee.
Viele Grüße
Alexander

Beliebteste Forumthreads (12 Monate)

Wechsel zwischen Mappen sehr verzögert

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread