Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblatt inkl. Makro in andere Datei kopieren

Tabellenblatt inkl. Makro in andere Datei kopieren
26.05.2014 10:00:03
David

Hallo zusammen,
ich möchte ein Makro schreiben, was ein Tabellenblatt einer Datei in eine andere Datei mit den zugehörigen Buttons und entsprechenden Makros kopiert.

Option Explicit
Sub Tabellekopieren()
Application.DisplayAlerts = False
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim fileename As String
Dim wsQuelleWS As Workbook
Dim wsZielWS As Workbook
fileename = "C:\filepath"
'Zielblatt = aktive Datei, aktives Blatt
'Set wsZiel = ActiveWorkbook.ActiveSheet
Set wsQuelle = ActiveWorkbook.Worksheets("Tabellenblatt")
'Quellblatt = Datei, Blatt 1
Set wsZiel = Workbooks.Open(filename:=fileename).Worksheets(1)
'Kopieren
wsQuelle.Copy After:=wsZiel
'Quelle schließen
wsQuelle.Parent.Close SaveChanges:=False
Set wsQuelle = Nothing
Set wsZiel = Nothing
Application.DisplayAlerts = True
End Sub

Das Problem hierbei ist, sobald ich das Makro in der Zieldatei ausführen möchte, öffnet sich immer die ursprüngliche Datei, auf die sich das Makro letztlich bezieht.
Weiß jemand einen Rat?
Viele Grüße,
David

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt inkl. Makro in andere Datei kopieren
26.05.2014 11:31:19
Rudi Maintaire
Hallo,
benutze ActiveX-Buttons.
Gruß
Rudi

Anzeige

354 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige