Das Makro von Oliver gefällt mir sehr gut hab aber noch einen Bug drin

Question

Ich möchte das Tabellenblatt "Gesamt" aus der Datei x in die Datei y mit dem gleichen Tabellenblatt-Namen kopieren.
Wie ich es auch anstelle bekomme ich immer ein leeres Tabellenblatt zurück.
Wo liegt mein Fehler

vg
Jürgen

Answer 1

von welchem Makro redest du?

Answer 2

Du redest nicht mit deinem Smartphone, Alexa etc., hier sitzen tatsächlich Menschen an den Geräten.
Eine KI Unterstützung ist in der Planung.
Nutze jetzt die Möglichkeit und verlinke zu der erwähnten Anfrage.

Answer 3

Hallo,

ich rede von nachstehendem script:


Option Explicit

Sub kopieren()
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Daten\2.xls"
ThisWorkbook.Sheets("Tabelle1").Cells.Copy _
Workbooks("2.xls").Sheets("Tabelle2").Range("A1")
With Workbooks("2.xls")
.Save
.Close
End With
End Sub


MfG,
Oliver

Answer 4

Hallo,

das folgende Makro gehört in ein [url=http://www.excelbeispiele.de/Modul.htm]Standardmodul[/url] der Arbeitsmappe, aus der du das Tabellenblatt "Gesamt" kopieren willst:

[code]Sub Tabelle_kopieren()

Dim wkbZiel As Workbook

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

'Arbeitsmappe, in das die Tabelle Gesamt kopiert werden soll
'Name und Pfad anpassen
Set wbkZiel = Workbooks.Open("C:\Daten\2.xls")

'Tabellenblatt Gesamt in Zielmappe kopieren
ThisWorkbook.Worksheets("Gesamt").Copy before:=wbkZiel.Sheets(1)

'Zielmappe speichern und schließen
wbkZiel.Close (True)

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

'Meldung
MsgBox "Das Tabellenblatt Gesamt wurde kopiert!", 48, "Kopiervorgang beendet"

End Sub[/code]

Den Pfad und den Name der Zieldatei musst du ggf auf deine Verhältnisse anpassen.

Gruß

M.O.

Answer 5

Die Antwort 4 ist super, das Makro läuft einwandfrei.

Ich hätte noch eine Frage:

Gibt es auch noch die Möglichkeit den Kopiervorgang aus der Zieldatei heraus anzustossen.

Answer 6

Hi,

es geht wohl um diesen Thread:

[url=https://supportnet.de/fresh/2007/1/id1486319.asp]VBA: Exceldatei in neues Tabellenblatt kopieren[/url]

Gruß Fabian

Answer 7

Es geht um folgende Funktion:

Sub Tabelle_kopieren()

Dim wkbZiel As Workbook

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

'Arbeitsmappe, in das die Tabelle Gesamt kopiert werden soll
'Name und Pfad anpassen
Set wbkZiel = Workbooks.Open("C:\Daten\2.xls")

'Tabellenblatt Gesamt in Zielmappe kopieren
ThisWorkbook.Worksheets("Gesamt").Copy before:=wbkZiel.Sheets(1)

'Zielmappe speichern und schließen
wbkZiel.Close (True)

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

'Meldung
MsgBox "Das Tabellenblatt Gesamt wurde kopiert!", 48, "Kopiervorgang beendet"

End Sub

Answer 8

Hallo,

kopiere das folgende Makro in ein allgemeines Modul deiner Zieldatei:

[code]Sub Tabelle_kopieren()

Dim wkbQuelle As Workbook

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

'Arbeitsmappe, aus der die Tabelle Gesamt kopiert werden soll
'Name und Pfad anpassen
Set wkbQuelle = Workbooks.Open("C:\Daten\Quelle.xlsx")

'Tabellenblatt Gesamt in Zielmappe kopieren
wkbQuelle.Worksheets("Gesamt").Copy before:=ThisWorkbook.Sheets(1)

'Quellmappe schließen ohne Speichern
wkbQuelle.Close (False)

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

'Meldung
MsgBox "Das Tabellenblatt Gesamt wurde kopiert!", 48, "Kopiervorgang beendet"

End Sub
[/code]

Den Pfad und Namen für die Quelldatei musst du natürlich noch anpassen.

Gruß

M.O.

Answer 9

super, danke