Zeile aus anderer Mappe in aktuelle Tabelle kopier
02.06.2016 16:55:25
Oisse
Wie bitte löse ich das?
Ich habe folgenden Code gefunden, allerdings ursprünglich zum Einfügen der kompletten Tabellenvorlage. Das kann ich aber nicht brauchen. Ich brauche nur die erste, die Überschriftenzeile, weil sich die von Zeit zu Zeit aktualisiert.
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
'DateiÖffnen Dialog anbieten
ExportDatei = "C:\Users\" & "Oisse" & "\AppData\Local\Privat\Admin\Clients\Admin\ _
Spreadsheets\Artikelvorlage.xltx"
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
WBQuelle.Worksheets("Import").Cells.Copy
Set WSZiel = WBZiel.Worksheets("Import").Cells.Insert
WBQuelle.Close True
Set WBZiel = Nothing
Set WBQuelle = Nothing: Set WSZiel = Nothing
Danke.