ich möchte aus dem Tabellenblatt Albo der Mappe Hauptwerte.xlsm die Werte der Zellen A10 bis F13 und G10 bis I15 in das Tabellenblatt Kibo der Mappe Phillip.xlsm in die Zellen A10 bis F13 und G10 bis I15 übernehmen.
Ich bitte um Eure Hilfe.
Gruß EM
Sub EM()
Dim WB1 As Workbook, WS1, WS2
Dim Pfad As String, Datei As String
Pfad = "C:\Temp\test\"
Datei = "Hauptwerte.xlsm"
Set WS2 = ActiveWorkbook.Sheets("Kibo")
Set WB1 = Workbooks.Open(Pfad & Datei)
Set WS1 = WB1.Sheets("Albo")
WS1.Range("A10:F13").Copy WS2.Range("A10")
WS1.Range("G10:I15").Copy WS2.Range("G10")
WB1.Close False
End Sub
Sub EM()
Dim Pfad As String, Datei As String
Pfad = "C:\Temp\test\"
Datei = "Hauptwerte.xlsm"
With ActiveWorkbook.Sheets("Kibo")
.Range("A10:F13").Formula = "='" & Pfad & "[" & Datei & "]Albo'!RC"
.Range("A10:F13").Value = .Range("A10:F13").Value
.Range("G10:I15").Formula = "='" & Pfad & "[" & Datei & "]Albo'!RC"
.Range("G10:I15").Value = .Range("G10:I15").Value
End With
End Sub
LG UweD