Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1520to1524
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 zum Übetragen von Tabellenblättern

Makro zum Übetragen von Tabellenblättern
20.10.2016 07:40:55
Tabellenblättern
hallo an alle, ich möchte ein Makro schreiben welches mir aus einer Quelldatei Tabellenblätter kopiert und sie in eine Zieldatei einsetzt und überschreibt. Dabei ist es wichtig dass das makro weder in der Quelldatei noch in der Zieldatei steht sondern in einer dritten Datei. (Das ganze soll dann wie eine Updatefunktion funktionieren). Ich hab mir bereits aus dem Forum ein wenig Code zusammengebastelt jedoch streikt mein Debugger bereits beim Öffner der Datei(en).

Sub Schaltfläche1_Klicken()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim QWB As Workbook, ZWB As Workbook
Set QWB = Workbooks("Quelldatei.xls")
Set ZWB = Workbooks("Zieldatei.xls")
Workbooks.Open "Pfad...\Quelldatei.xls" 'hier die Frage ob der DateiPfad und Name in "" stehen  _
muss
Workbooks.Open "Pfad...\Zieldatei.xls"
Dim QWS1 As Worksheet, ZWS1 As Worksheet
Dim QWS2 As Worksheet, ZWS2 As Worksheet
Set QWS1 = QWB.Worksheets("Sachmerkmal1")   ' Quelle
Set ZWS1 = ZWB.Worksheets("Sachmerkmal1")    ' Ziel
Set QWS2 = QWB.Worksheets("Sachmerkmal2")    'Quelle
Set ZWS2 = ZWB.Worksheets("Sachmerkmal2")    'Ziel
QWS1.Cells.Copy ZWS1.Cells(1, 1)
QWS2.Cells.Copy ZWS2.Cells(1, 1)
Workbooks("Quelldatei.xls").Close
Workbooks("Zieldatei.xls").SaveAs Filename:="Pfad...\Zieldatei.xls"
Workbooks("Zieldatei.xls").Close
Application.EnableEvents = True
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Übetragen von Tabellenblättern
20.10.2016 10:36:34
Tabellenblättern
Hallo,
teste mal
Sub Schaltfläche1_Klicken()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim QWB As Workbook, ZWB As Workbook
Dim QWS1 As Worksheet, ZWS1 As Worksheet
Dim QWS2 As Worksheet, ZWS2 As Worksheet
On Error Resume Next
Set QWB = Workbooks("Quelldatei.xls")
If QWB Is Nothing Then
Set QWB = Workbooks.Open("Pfad...\Quelldatei.xls")
End If
Set ZWB = Workbooks("Zieldatei.xls")
If ZWB Is Nothing Then
Set ZWB = Workbooks.Open("Pfad...\Zieldatei.xls")
End If
On Error GoTo 0
Set QWS1 = QWB.Worksheets("Sachmerkmal1")   ' Quelle
Set ZWS1 = ZWB.Worksheets("Sachmerkmal1")    ' Ziel
Set QWS2 = QWB.Worksheets("Sachmerkmal2")    'Quelle
Set ZWS2 = ZWB.Worksheets("Sachmerkmal2")    'Ziel
QWS1.Cells.Copy ZWS1.Cells(1, 1)
QWS2.Cells.Copy ZWS2.Cells(1, 1)
QWB.Close
ZWB.Save
ZWB.Close
Application.EnableEvents = True
End Sub

Gruß
Rudi
Anzeige
AW: Makro zum Übetragen von Tabellenblättern
20.10.2016 13:06:24
Tabellenblättern
dank dir Rudi,
funktioniert leider nicht ganz. Laufzeitfehler91, Debugger geht bis

"Set QWS1 as QWB.Worksheets("Sachmerkmal1")
Objektvariable nicht vergeben...
wundert mich etwas da du ja direkt oben drüber Dim as .... gemacht hast
AW: Makro zum Übetragen von Tabellenblättern
20.10.2016 17:04:07
Tabellenblättern
das habe ich nirgends geschrieben.
AW: Makro zum Übetragen von Tabellenblättern
21.10.2016 07:21:26
Tabellenblättern
ganz am Anfang hast du auch alle Variablen deklariert,
und trotzdem sagt der Debugger dass die Objektvariablen an dieser Stelle fehlen.
komm da nicht weiter =(
AW: Makro zum Übetragen von Tabellenblättern
21.10.2016 10:14:07
Tabellenblättern
Hallo,
Set QWS1 as QWB.Worksheets("Sachmerkmal1")
ist Quatsch
Wenn dann
Set QWS1 = QWB.Worksheets("Sachmerkmal1")
Wenn es allerdings die Datei nicht gibt oder der Pfad falsch ist, ist QWB = NOTHING!
Gruß
Rudi
Anzeige
AW: Makro zum Übetragen von Tabellenblättern
21.10.2016 13:58:36
Tabellenblättern
dank dir, werde es am montag testen, denke aber es wird funktionieren ! =)
AW: Makro zum Übetragen von Tabellenblättern
21.10.2016 15:31:51
Tabellenblättern
Moin Rudi
Das man mit vba so etwas machen kann, ist für mich Unwissenden schon toll und ermöglicht mir weitere Vorgehensweisen.
Meine Frage:
Wie muß das vba geändert werden, wenn ich anstatt des Tabellenblattes, die Daten einer benannten Tabelle in Tabellen eines anderen Arbeitsblattes kopieren möchte, Konkret;
Quelldatei: benannte Tabelle: „Sachmerkmal1“
nach
Zieldatei: benannte Tabelle: „Sachmerkmal1“
Und
Quelldatei: benannteTabelle: „Sachmerkmal2“
nach
Zieldatei: benannteTabelle: „Sachmerkmal2“
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige