Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1016to1020
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

Datei öffnen, Werte kopiren und eifügen

Datei öffnen, Werte kopiren und eifügen
21.10.2008 16: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

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 17: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 09:33:35
Julia
Vielen Dank, Tino!
Es funktioniert.
Gruß,
Julia

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige