Zellen kopieren aus anderer Arbeitsmappe
21.07.2015 16:31:33
ronforum
ich bin gerade dabei zwei Arbeitsmappen miteinander zu verknüpfen, weil ich gerne Werte aus einer in die andere Arbeitsmappe überspielen würde.
Mit einzelnen Werten klappt das soweit problemlos.
'Zugriff auf geschlossene Mappe
Sub Zelle_auslesen()
'** Dimensionierung der Variablen
Dim pfad As String, datei As String, blatt As String, zelle As String
'** Angaben zur auszulesenden Zelle
pfad = "E:\Beispielpfad"
datei = "Blatt.xlsm"
blatt = "1"
bezug = "d6"
'** Eintragen in Zelle
ThisWorkbook.Sheets("Standard").Cells(38, 17) = GetValue(pfad, datei, blatt, _
bezug)
End Sub
Private Function GetValue(pfad, datei, blatt, zelle)
'** Daten aus geschlossener Arbeitsmappe auslesen
'*** Dimensionierung der Variablen
Dim arg As String
'Sicherstellen, dass das datei vorhanden ist
If Right(pfad, 1) "\" Then pfad = pfad & "\"
If Dir(pfad & datei) = "" Then
GetValue = "datei Not Found"
Exit Function
End If
'** Das Argument erstellen
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range( _
zelle).Range("A1").Address(, , xlR1C1)
'** Auslesen über Excel4Macro
GetValue = ExecuteExcel4Macro(arg)
End Function
Also quasi: Blattname: 1
1+k
Sub Zelle_auslesen()
For k = 3 To lngsheets
'** Dimensionierung der Variablen
Dim pfad As String, datei As String, blatt As String, zelle As String
'** Angaben zur auszulesenden Zelle
pfad = "E:\Beispielpfad"
datei = "Blatt.xlsm"
blatt = 1 + k
bezug = "d6"
'** Eintragen in Zelle
ThisWorkbook.Sheets("Standard").Cells(38, 17) = GetValue(pfad, datei, blatt, _
bezug)
Next k
End Sub
Die Ergebnisse sollen dann ab Cells (38/17) nach unten hin ausgegeben werden.
Gibt es hierfür eine Lösung und wie würde diese aussehen?
Vielen Dank schon mal
Ron