Hi ransi, noch eine Kleinigkeit:
Kann man beim Ersetzten-Befehl das auch so machen, dass immer die drei Zeichen vor ".xls" durch den Inhalt der dritten Spalte ersetzt wird, statt "xxx"?
Also nicht:
Rows(ActiveCell.Row).Replace what:="xxx", replacement:=Cells(ActiveCell.Row, 3)
Sondern:
Rows(ActiveCell.Row).Replace what:="drei Zeichen vor .xls", replacement:=Cells(ActiveCell.Row, 3)
Vielen Dank, falls Du auch hierfür eine Lösung weißt!