Habe folgenden Code der mir die Daten eines Tabellenblattes in ein anderes
einließt.
Ich möchte die Zeile "Set shQuelle..." so verändern, das der Bezug der Datei(d160305...) aus Der Zelle A1 kommt.
Kann mir jemand weiterhelfen ?
Gruss
Holger
Sub Kombinieren()
Dim shQuelle As Worksheet, shZiel As Worksheet
Dim Rng As Range
Dim intRow%, nRow%, nColumn%
Application.ScreenUpdating = False
Workbooks.Open Range("M34"), False
Set shQuelle = Workbooks("d160305_424859801__SummeNetznutzung_1.xls").Worksheets("Tabelle")
Set shZiel = Workbooks("EZ.xls").Worksheets("Daten")
On Error Resume Next
intRow = shZiel.Cells.Find("*", shZiel.Range("A1"), , , _
xlByRows, xlPrevious).Row
If Err > 0 Then intRow = 1
On Error GoTo 0
nRow = shQuelle.UsedRange.Rows.Count
nColumn = shQuelle.UsedRange.Columns.Count
Set Rng = shQuelle.Range(shQuelle.Cells(2, 1), shQuelle.Cells _
(nRow, nColumn))
Rng.Copy shZiel.Range("A" & intRow + 1)
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub