ich möchte gerne folgende aus der Tabelle Artikelmarkmale.xls Reiter Artikelmerkmale den Bereich A2 bis I(letzte gefüllte Zelle) in die Tabelle aaa_Masterdatei.xlsm Reiter Artikelmerkmale kopieren.
Die Quelledatei liegt: P:\Auftragserstellung
Die Zieldatei liegt: P:\Röst und Schüttauftrag
Das habe ich so gelöst:
Sub A1InachMasterdatei()
' A1InachMasterdatei Makro
ActiveWindow.LargeScroll ToRight:=-3
Range("A1:I1023").Select
Selection.Copy
Workbooks.Open Filename:="P:\Röst und Schüttauftrag\aaa_Masterdatei.xlsm"
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Ich habe zwei Anliegen:
1. Überprüfung meines Codes und evtl. Verbesserung
2. I1023 soll durch Iletztegefülltezelle geändert werden.
Vielen Dank