moin
was ist hier falsch?
die letzten beiden zeilen erden immer gelb auch wenn ich da ActiveSheet.Paste eintrage
Sheets("test").Select
Workbooks.Open Filename:= _
"F:\internal\test.xls"
Range("A4:I31").Select
Selection.Copy
Windows("tset STATISTICS.xls").Activate
Cells(1, 1).Select
lastrow = Cells(1, 1).End(xlDown).Row
Cells(lastrow + 1, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False