Probleme beim Kopieren in anderes Excel
16.09.2014 15:59:14
Roland
ich komme hier leider nicht weiter, hoffentlich kann mir einer von Euch einen Tipp geben. Ich mö _
chte folgendes machen: Es gibt eine Datei Ziel, von der aus ich eine Datei Quelle öffne, Daten _
von Quelle nach Ziel kopiere und anschließend Quelle schließe. Dies funktioniert wie gewünscht. _
Zusätzlich möchte ich aber jetzt noch vor dem schließen ein Tabellenblatt von Ziel nach Quelle kopieren, was mich in den Wahnsinn treibt. Der Teilcode sieht wie folgt aus:
Sub test()
Dim pfad$, File$
Dim objQuelleZusammenfassung As Object
Dim objZielZusammenfassung As Object
Dim objExcelQuelle As Excel.Application
'Quell-Exceldatei öffnen
pfad = "..."
File = "Test.xlsx"
Set objExcelQuelle = CreateObject("Excel.Application")
objExcelQuelle.Workbooks.Open Filename:=pfad & "\" & File
'Kopieren
Set objZielZusammenfassung = ThisWorkbook.Sheets("Zusammenfassung")
Set objQuelleZusammenfassung = objExcelQuelle.Worksheets.Add
objZielZusammenfassung.Columns(2).Copy
With objQuelleZusammenfassung
.Columns(2).PasteSpecial
End With
'Datei Quelle schließen
objExcelQuelle.ActiveWorkbook.Close SaveChanges:=True
objExcelQuelle.Quit
End Sub
1. Die Spalte 2 wird nicht kopiert sondern stattdessen eine Art Grafik angezeigt, die mit '=EINBETTEN("Excel.Sheet.8";"")' versehen ist.
2. Kopiert wird nicht immer die zweite Spalte aus dem Blatt Zusammenfassung, sondern die 2. Spalte des Blattes, welches beim Start des Makros sichtbar ist.
Könnt Ihr mir bitte helfen?
Danke
Roland
Anzeige