Habe in der Recherche folgenden Code gefunden:
Workbooks.Open Filename:= _
"H:\Daten\Neue Projektlisten\Anlageninstandhaltung.xls", UpdateLinks:=3
Sheets("AIH").Select
Range(Cells(5, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 256)).Copy _
Destination:=Workbooks("Zusammenzug.xls").Worksheets("Zusammenzug").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Leider kopiert mir dieser Code auch die Formeln. Ich möchte nur die Inhalte eingefügt haben.
Kann jemand helfen?
Gruss Klaus