was mache ich falsch? Es wird immer die letzte Zelle von sheet(1) anstelle von sheet(2) berechnet:
ActiveSheet.Range("A4").Copy
Windows("Time 2009.xls").Activate
Sheets(2).Activate
Dim LZ As Long
LZ = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("D" & LZ & "").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Gruß
Gerhard