Office: Wert in neues dokument kopieren?

Moin,
ist es möglich, per formel einen wert aus excel dokument1 in excel dokument2 zu kopieren?

ich stelle mir das so vor, dass ich mein Dokument2 öffne, und es sich automatisch die werte aus Dokument1 holt, diese allerdings nicht als Formel speichert, denn in der wird ja auf dokument1 verwiesen, welches ein anderer evtl. nicht hat, also sollen bloss die werte von dokument1 nach dokument2 kopiert werden.
ist das möglich? (geht sicher mit macros, aber davon hab ich keine ahnung)

danke für die hilfe

PS:
Office/excel2000
MFG Madde

 

Hallo!

Öffne aus Dokument2 heraus den VBA-Editor mit Alt+F11 und doppelklicke auf "Diese Arbeitsmappe".
Wenn du nun den untenstehenden Code in das Codefenster rechts kopierst, dann werden beim Öffnen der Datei in den Zellen A1 bis A3 des Blatts "Tabelle1" die Werte aus M1 bis M3 des Blatts "Tabelle2" der Datei "C:\Excel\Ordner1\Ordner2\Dokument1.xls" eingefügt.

Code:

Private Sub Workbook_Open()
Const Pfad = "C:\Excel\Ordner1\Ordner2\"
Const Datei = "Dokument1.xls"
Workbooks.Open Pfad & Datei
Sheets("Tabelle1").Range("A1") = Workbooks(Datei).Sheets("Tabelle2").Range("M1")
Sheets("Tabelle1").Range("A2") = Workbooks(Datei).Sheets("Tabelle2").Range("M2")
Sheets("Tabelle1").Range("A3") = Workbooks(Datei).Sheets("Tabelle2").Range("M3")
Workbooks(Datei).Close
End Sub

 

jo genau das ists was ich brauch, danke :)

aber gibts noch ne möglichkeit werte von B7-B81 zu kopieren?

ich habs versucht mit

Sheets("Tabelle1").Range("A1") = Workbooks(Datei).Sheets("Tabelle2").Range("M1:M81")
und
Sheets("Tabelle1").Range("A1:A81") = Workbooks(Datei).Sheets("Tabelle2").Range("M1:M81")

versucht, aber die werte werden nicht kopiert.
ist das da überhaupt excel syntax oder beschreibt man "von bis" anders?

 

Hallo!

Dann versuch's mal so:

Code:

Private Sub Workbook_Open()
Const Pfad = "C:\Excel\Ordner1\Ordner2\"
Const Datei = "Dokument1.xls"
Workbooks.Open Pfad & Datei
Workbooks(Datei).Sheets("Tabelle1").Range("B7:B81").Copy
Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues
Workbooks(Datei).Close
End Sub 

 

wunderbar passt :)

vielen dank schatzi *drück*