Werte in andere Datei übertragen

Bild

Betrifft: Werte in andere Datei übertragen von: Harald G.
Geschrieben am: 16.02.2005 15:16:05

Hallo VBA-Spezialisten.

ich stehe ein wenig auf der Leitung.

Ich möchte mit dem nachstehenden Code in Datei "A.xls" "Arbeitsblatt1" Zellbereich A1 die Werte aus Datei "B.xls" "Arbeitsblatt2" Zelle A2 übertragen.

Was mache ich falsch ? Wie sieht der kürzeste richtige Code aus ?

Range Workbooks("A.xls").Worksheets("Arbeitsblatt1!A1").Formula = Range Workbooks("B.xls").Worksheets("Arbeitsblatt2!A2").Value

Gruß, Harald G.

Bild


Betrifft: AW: Werte in andere Datei übertragen von: Ulf
Geschrieben am: 16.02.2005 15:24:40

Workbooks("A.xls").Worksheets("Arbeitsblatt1").[a1] = Range Workbooks("B.xls").Worksheets("Arbeitsblatt2").[a2]

Ulf


Bild


Betrifft: AW: Werte in andere Datei übertragen von: WernerB.
Geschrieben am: 16.02.2005 15:27:34

Hallo Harald,

wenn beide Dateien geöffnet sind, dann so (mal ungetestet):
Sub Harald()
    Workbooks("A.xls").Worksheets("Arbeitsblatt1").Range("A1").Value = _
      Workbooks("B.xls").Worksheets("Arbeitsblatt2").Range("A2").Value
End Sub

Gruß
WernerB.


Bild


Betrifft: Werte in andere Datei übertragen - Weitere Frage von: Harald G.
Geschrieben am: 16.02.2005 15:38:16

Hallo Ulf, hallo Werner,

vielen Dank für Eure schnelle Antwort.

Die Bemerkung von Werner wirft bei mir eine weitere Frage auf.

Muß ich nicht beide Dateien öffnen um dieses Makro laufen zu lassen ?

Gruß, Harald


Bild


Betrifft: Ja ot von: Ulf
Geschrieben am: 16.02.2005 15:41:55

o


Bild


Betrifft: AW: Werte in andere Datei übertragen - Weitere Frage von: WernerB.
Geschrieben am: 16.02.2005 15:45:52

Hallo Harald!

1. Bei dem von mir geposteten Code müssen beide Dateien geöffnet sein.

2. Es ist auch möglich - aber nicht mit diesem Code - Daten aus einer geschlossenen Datei auszulesen und in eine geöffnete Datei zu schreiben.

3. Es ist m.W. nicht möglich, Daten in eine geschlossene Datei zu schreiben.


Gruß
WernerB.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Werte in andere Datei übertragen"