Sub Blattanpassen()
Workbooks.Open FileName:="\\Januar 03\Dateiname", UpdateLinks:=0
Columns("A:A").Select
Selection.Replace What:=" E ", Replacement:=" S ", LookAt:= _
x1Part, SearchOrder:=xlByColumns, MatchCase:=False
Selection.Replace What:="TPE", Replacement:="TPS", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=False
End Sub