folgender Code soll jedes Mal wenn er ausgeführt wird die kopierten Daten als werte in die nächste freie Zeile einfügen (Datensatzprinzip)
Leider funktioniert das nicht so ganz wie gedacht.
Wer kann mir sagen wo mein Fehler liegt?
Danke und Gruß
Benjamin
Workbooks.Open FileName:= _
"\\BCHHMAIN\DEPART\Customer_Service\Gina & Benjamin\Calls Übersichten\März 03 Calls Übersicht.xls" _
, UpdateLinks:=0
Sheets("TEST").Select
Range("A65536").End(xlUp).Row + 1
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A65536").End(xlUp).Row + 1
ChDir "H:\Gina & Benjamin\Berichte"
Workbooks.Open FileName:= _
"\\BCHHMAIN\DEPART\Customer_Service\Gina & Benjamin\Berichte\8-9-.xls"
Range("C21:M21").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ActivateNext
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False