Hallo zusammen,
mein Code sieht bis jetzt so aus:
ChDir
"Z:\Testumgebung\Hauptmontage"
Workbooks.Open Filename:= _
"Z:\Testumgebung\Hauptmontage\" & Range("
J2
") & "
.xlsm"
Range(
"A1:H138"
).
Select
Selection.Copy
Windows(
"Test import.xlsm"
).Activate
Sheets(
"Tabelle2"
).
Select
Range(
"A10"
).
Select
ActiveSheet.Paste
Application.CutCopyMode =
False
Workbooks(
"3001700.xlsm"
).Close SaveChanges:=
False
<<<<<<<<<<<<<<<Problem<<<
Funktioniert soweit auch gut ABER wie ihr sehen könnt, muss ich im letzten Schritt das
"Workbook schließen"
. Dieses mache ich momentan
indem ich den Namen der Datei direkt angebe. Das möchte ich aber nicht. Der Grund dafür ist, dass der Name sich ständig ändert.
Ich möchte das der Name aus der Spalte (J2) entnommen wird. Also mit anderen Worten..Die datei die zu Anfang geöffnet wird, soll am Ende
auch wieder geschlossen werden.
Ich hoffe das Beantwortet die Frage im Großen und ganzen.
Schön wäre es wenn die Formatierung der kopierten Datei 100%ig beibehalten wird.
Dann gibt es ja auch die Möglichkeit das Fenster, aus dem Kopiert wird, gar nicht erst geöffnet wird (Application.ScreenUpdating=
False
).
Mit dieser Funktion werden dann
die Bilder nicht kopiert.. Warum bzw was kann man dagegen unternehmen?
Grüße
Jens