Andere Arbeitsmappe öfnnen und zeiel mit übertrage
07.09.2018 03:09:58
Sven
Hallo also so langsam verzweifele ich.
Ich möchte per Click auf einen Button gerne eine Bestimmte excel datei öffen (bestadsabfrage.xlsx) und möchte von dem Aktiven Worksheet die zelle J13 in Tabelle 1 von Bestandsabfrage gerne in Zelle C6 eintragen.
Momentan bin ich soweit das die Datei sich öffnet aber dann kommt einfehler.. hier der bishereige Code
Vielen Dank für die hilfe im vorraus
Sub Datei_Kopieren()
Dim wbStart, wbZiel As Workbook
Set wbStart = ActiveWorkbook
Set wbZiel = Workbooks.Open("C:\SWIF\bestandsabfrage.xlsx")
wbStart.Sheets("Ersatzteilfinder").Range("J13").Copy
wbZiel.Sheets("Tabelle1").Range("C6").Select
wbZiel.Sheets("Tabelle1").Paste
Selection.PasteSpecial Paste:=xlPasteValues
End Sub