Daten aus geschlossener Arbeitsmappe kopieren

Private Sub CommandButton1_Click() Workbooks.Open FileName:="C:\WINNT\...\Mappe2.xls" Workbooks("Mappe2").Activate Worksheets("Tabelle1").Select Range("B3").Select Selection.Copy ActiveWindow.Close Range("B9").Select ActiveSheet.Paste End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Function GetValue(path, file, sheet, ref) ' Retrieves a value from a closed workbook Dim arg As String ' Make sure the file exists If Right(path, 1) <> "\" Then path = path & "\" If Dir(path & file) = "" Then GetValue = "File Not Found" Exit Function End If ' Create the argument arg = "'" & path & "[" & file & "]" & sheet & "'!" & _ Range(ref).Range("A1").Address(, , xlR1C1) ' Execute an XLM macro GetValue = ExecuteExcel4Macro(arg) End Function

Private Sub CommandButton1_Click() Workbooks.Open Filename:="C:\WINNT\...\Mappe2.xls" Workbooks("Mappe2").Worksheets("Tabelle1").Range("B3").Copy _ Destination:=ThisWorkbook.ActiveSheet.Range("B9") ActiveWindow.Close End Sub

Hallo Sarah,

teste doch mal dieses Makro in Verbindung mit der dazugehörigen Funktion. Die Quell-Datei muss dazu nicht geöffnet werden; d.h., die ganze Dateiöffnungsprozedur entfällt.
Der Wert (aber keine Formatierung) aus der Quelldatei, Blatt "Tabelle1", Zelle B3, wird ausgelesen und in die Zieldatei, aktives Blatt, Zelle B9, eingetragen.


Function xl4Value(strParam As String) As Variant
xl4Value = ExecuteExcel4Macro(strParam)
End Function


Sub AktualBasismittel()
Dim strSource As String
strSource = "'C:\WINNT\...\Mappe2.xls]Tabelle1'!R3C2"
Range("B9").Value = xl4Value(strSource)
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

Hallo Sarah,

uuups - ich habe gerade festgestellt, dass mir wohl eine eckige Klammer vor dem Dateinamen verlorengegangen ist.
Außerdem musst Du natürlich die drei Punkte in der Zeile

strSource = "'C:\WINNT\...\[Mappe2.xls]Tabelle1'!R3C2"

schon durch den/die richtigen Ordner des korrekten Pfades Deiner Quelldatei ersetzen.

Funktion und Makro gehören in ein normales Standard-Modul.
Das Makro geht in die Funktion und holt sich da den Wert aus der geschlossenen Datei (mit einer dateiübergreifenden Verknüpfung vergleichbar).
Das "R3C2" am Ende bedeutet Row (Zeile) 3, Column (Spalte) 2; dies entspricht der Zelladresse "B3".
Hier noch mal Funktion und korrigiertes Makro:


Function xl4Value(strParam As String) As Variant
xl4Value = ExecuteExcel4Macro(strParam)
End Function


Sub Sarah()
Dim strSource As String
strSource = "'C:\WINNT\...\[Mappe2.xls]Tabelle1'!R3C2"
Range("B9").Value = xl4Value(strSource)
End Sub

Gruß WernerB.

Beliebteste Forumthreads (12 Monate)

Daten aus geschlossener Arbeitsmappe kopieren

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

227 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus geschlossener Arbeitsmappe kopieren

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

227 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread