ich möchte, dass aus einer Datei test.xls die Einträge in der Datei "KundeX.xls" nach einer bestimmten Spalte sortiert wird.
Folgender einfacher Code, funktioniert in der Datei KundeX.xls (ohne den "Öffnen-Teil" einwandfrei. Jedoch passiert gar nichts, wenn ich gleichen Code aus einer anderen Datei ausführen lasse.
Sub test()
Path = "c:\"
file_name = "KundeX" & Worksheets("Emailadressen").Range("A2") & ".xls"
Location = Path & "\" & file_name
Workbooks.Open Location
lastrow = Sheets("Telefon").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Telefon").Range("A2:U" & lastrow).Select
Selection.Sort Key1:=Range("R2"), Header:=yes, DataOption1:=xlSortTextAsNumbers
End Sub
Wer kann mir helfen, warum funktioniert dieser Code nicht aus anderen Datei heraus? Ich bin am verzweifeln.
Danke und Gruß
Lars