Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Andere Arbeitsmappe öfnnen und zeiel mit übertrage

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Andere Arbeitsmappe öfnnen und zeiel mit übertrage
07.09.2018 04:25:52
Werner
Hallo Sven,
könnte an deiner "Selectiererei" liegen.
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").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Wenn es nicht klappt:
-welche Fehlernummer
-in welcher Codzeile
Gruß Werner
AW: Andere Arbeitsmappe öfnnen und zeiel mit übertrage
07.09.2018 07:43:30
Sven
Lieber Werner ein herzliches Dankeschön
Funktioniert einwandfrei. :))
Gerne u. Danke für die Rückmeldung. o.w.T,
07.09.2018 12:25:10
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige