Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Datei öffnen, Werte kopiren und eifügen

Forumthread: Datei öffnen, Werte kopiren und eifügen

Datei öffnen, Werte kopiren und eifügen
21.10.2008 18:13:34
Julia
Hallo liebes Forum!
Ich wende mich an Euch mit der folgenden Frage:
Wie kann ich per Makro eine bestimmte Excel-Datei "Aufträge" im Verzeichnis "C:\Daten\" öffnen, in dieser Datei Zelle C5 kopieren und meine Zieldatei "Auswertung" in die Zelle D7 einfügen und anschließend die Datei "Aufträge" ohne die Änderungen abzuspeichern schließen?
Vielen Dank für jeden Rat!
LG,
Julia
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei öffnen, Werte kopiren und eifügen
21.10.2008 19:17:52
Tino
Hallo,
do müsste es funktionieren.
Modul Modul1
Option Explicit 
 
Sub Test() 
Dim obDatei As Workbook 
 
 Application.ScreenUpdating = False 
    Set obDatei = Workbooks.Open("C:\Daten\Aufträge.xls", , True) 
    'Tabellenname anpassen!!!!************** 
    obDatei.Sheets("Tabelle1").Range("C5").Copy _
    ThisWorkbook.Sheets("Tabelle1").Range("D7") 
     
    obDatei.Close False 
 Application.ScreenUpdating = True 
End Sub 


Gruß Tino

Anzeige
AW: Datei öffnen, Werte kopiren und eifügen
22.10.2008 11:33:35
Julia
Vielen Dank, Tino!
Es funktioniert.
Gruß,
Julia

Forumthreads zu verwandten Themen

Anzeige