Hallo zusammen,
ich habe folgenden Code:
Dim Quelle As Object, Ziel As Object
Dim lastC As Integer
Application.DisplayAlerts = False
Set Quelle = ThisWorkbook.ActiveSheet
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "ProjektTool" & "\" & "DatenbankPers" & ".xlsm"
Set Ziel = ActiveWorkbook.Worksheets("Daten")
lastC = Ziel.Cells(Rows.Count, 2).End(xlUp).row
Quelle.Range("C59").Copy Destination:=Ziel.Cells(lastC + 1, 2)
Workbooks("DatenbankPers" & ".xlsx").Close savechanges:=True
Set Ziel = Nothing
Set Quelle = Nothing
Application.DisplayAlerts = True
Läuft auch soweit, jedoch kommt an der Zieldatei nur eine leere Zelle an und nicht der Wert aus Zelle "C59" der Quelldatei.
Hätte jemand einen HInweis?
Vielen Dank schonmal im Voraus
Richard