2te Datei öffnen und variable Datenmenge kopieren
01.03.2018 10:27:31
Dennis
ich habe eine Frage an euch und hoffe ihr könnt mir weiterhelfen.
In einer Tabelle habe ich einen Reiter mit Werten. Diese sollen aus einer 2ten Excel-Datei per Makro aktualisiert werden.
Dazu soll die neue Datei geöffnet werden. In den richtigen Reiter springen und immer die Tabelle bis zur letzten Zeile markieren. Danach soll die Datei geschlossen werden und die Werte in die 1. Datei kopiert werden.
Kann man beim öffnen der 2ten Datei Variablen vergeben?
Ich hoffe ihr könnt mir helfen. Habe 2 Dateien angehängt
https://www.herber.de/bbs/user/120132.xlsm
https://www.herber.de/bbs/user/120134.xlsx
Sub Mengen()
Dim z As Long
Workbooks.Open "C:\Eigene Dateien\Zusammenfassung.xlsm" ' öffnen der 2ten Datei
Sheets("Übersicht").Select 'in den richtigen Reiter springen
z = .Cells(.Rows.Count, 1).End(xlUp).Row ' letzte Zeile definieren
.Range("A1:H" & z).Select ' Bereich auswählen
Selection.Copy ' Bereich kopieren
Workbooks("Zusammenfassung.xlsm").Close False '2te Datei schließen
'oder
'Application.DisplayAlerts = False
'Workbooks("Gesamt MA-Liste_Heidenau.xls").Close savechanges = yes
'Application.DisplayAlerts = True
Sheet9.Activate 'Zielreiter auswählen
Sheets("Mengen").Select
With Sheets("Mengen")
.Range("B1").PasteSpecial xlPasteValues 'Werte kopieren und in B1 starten.
Application.CutCopyMode = False
End With
End Sub