Tabelle kopieren
18.01.2021 19:25:21
Thomas
ihr könnt mir bestimmt helfen.
Ich würde gern aus einer Arbeitsmappe mit Makros (,xlsm) Daten aus einer eine Tabelle in eine Arbeitsmappe ebenfalls mit Makros (.xlsm) übertragen.
Mein Ansatz ist wie folgt;
Private Sub CommandButton4_Click()
Dim sPfad As String ' der Ordner-Pfad der Excel-Mappen
Dim sDatei As String ' die zu beschreibende Datei
Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft
Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - das Ergebnis
sPfad = "C:\Users\quall\Desktop\"
sDatei = "1_Materialbestellung.xlsm"
Application.ScreenUpdating = False
If Dir(sPfad & sDatei) "" Then
Workbooks.Open (sPfad & sDatei)
ThisWorkbook.Activate
Application.EnableEvents = False
Application.ActiveWindow.Visible = False
Else
MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _
"und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _
16, " Hinweis für " & Application.UserName
Exit Sub
End If
Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1 (2)")
Set WkSh_Z = Workbooks(sDatei).Worksheets("Tabelle1 (2)")
WkSh_Q.Cells.Range("A1:Z6000").Copy Destination:=WkSh_Z.Range("A1:Z6000")
Workbooks(sDatei).Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden erfolgreich übergeben.", _
64, " Information für " & Application.UserName
End Sub
Das Problem ist, das die Ziel Datei geöffnet wird und die Makros gestartet werden. Dadurch wird wohl das Makro der Quelldatei unterbrochen. Mit einer xlsx-Datei klappt es.
Irgendwie komme ich jetzt nicht weiter.