Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Kopieren Arbeitsmappe

Makro Kopieren Arbeitsmappe
08.07.2021 17:41:55
Robert
Hallo Ihr lieben Exeler!
Brauche mal wieder Eure Hilfe. Ich habe einen Code bei welchen ich aus einer Quelldatei die Zieldatei öffne und einen Bereich kopiere. Was muss ich tun um das genau umzukehren. Das Makro befindet sich in der jetzigen Zieldatei, soll die Quelldatei öffnen und die Daten der Quelldatei in die Zieldatei kopieren.
Wie müsste ich das schreiben, hier der jetzige Code.

Sub AADatei_Kopieren()
Dim wbZiel As Workbook
Set wbZiel = Workbooks.Open("N:\Datencenter\Beilagenwuensche.xlsm")
ThisWorkbook.Worksheets("Beilagenauftrag").Range("A1:E178").Copy
wbZiel.Worksheets("Beilagenauftrage").Range("A1").PasteSpecial
Set wbZiel = Nothing
End Sub
Danke für die Hilfe.
LG Robert

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

Betreff
Datum
Anwender
Anzeige
AW: Makro Kopieren Arbeitsmappe
08.07.2021 20:26:23
Robert
Hallo Ihr lieben!
Habe mal weiter gebastelt, öffne jetzt schon die Zieldatei aber mit dem kopieren und überschreiben will es aber nicht klappen
LG Robert

Sub AADatei_Kopieren()
Dim wbQuelle As Workbook
Dim wbZiel As Workbook
Set wbQuelle = Workbooks.Open("N:\Datencenter\Beilagenwunschetest.xlsm")
("Beilagenauftrag").Range("A1:E178").Copy
wbZiel.Worksheets("Beilagenauftrage").Range("A1").PasteSpecial
Set wbZiel = Nothing
End Sub

AW: Makro Kopieren Arbeitsmappe
08.07.2021 21:17:18
GerdL
Moin Robert,
an den Tabellennamen musst du noch arbeiten.

Sub Unit()
Dim wbQuelle As Workbook
Set wbQuelle = Workbooks.Open("N:\Datencenter\Beilagenwuensche.xlsm")
wbQuelle.Worksheets("TabelleOut").Range("A1:E178").Copy
ThisWorkbook.Worksheets("TabelleIn").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wbQuelle.Close False
Set wbQuelle = Nothing
End Sub
Gruß Gerd
Anzeige
AW: Makro Kopieren Arbeitsmappe
09.07.2021 12:00:35
Robert
Hallo Gerdl!
Ich danke Dir von ganzen Herzen. Es funzt.
LG Robert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige