Arbeitsblätter kopieren (VBA) = Excel Crash
27.01.2017 16:09:22
Tobias
Ich habe mir ein kleines Skript gebaut, welches u.a. Arbeitsblätter aus verschiedenen Quellen in eine Datei zusammenkopiert. Das Skript läuft einwandfrei, solange die Quelldateien lokal gespeichert sind. Liegen die Quelldateien auf dem Server (SBS, gemapptes Laufwerk), stürzt Excel nach einem oder manchmal zwei Kopiervorgängen ab. Es erscheint die Meldung "Excel funktionert nicht mehr". Vor dem Absturz wird das Tabellenblatt wie gewünscht kopiert und die Quelldatei geschlossen. Danach wäre der Submodul beendet und dann stürzt Excel ab.
So sehen die letzten Zeilen aus, welche vor dem Crash ausgeführt werden:
' WS kopieren
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets(WSName) ' Quelle gemäss Auswahl Dropdown
Set ZWS = ZWB.Worksheets("Hidden") ' Ziel
QWS.Copy before:=ZWS ' kopieren
QWB.Close ' Quelle schliessen
End Sub
- Die Alternative mit einer temporären lokalen Dateikopie um das Sheet zu kopieren war erfolglos
Kennt jemand das Problem oder hat eine Idee zur Lösung? Vielen Dank für eure Hilfe.
Tobias