Hallo Christy!

HIer mal ein Beispiel wie es gehen würde. Bei pfad musst du nur noch den Pfad von deiner Datei2 einrtagen. Danach sollt er alles ersetzen. Ich bin mal davon ausgegangen, dass Datei1 auch ein Exceldokument ist. In Spalte A sind dann deine Parameter.. .

Viele Grüße

Option Explicit

Sub ersetzen()

Dim ziel As String      'die Datei mit dem Code
Dim quelle As String    'die Datei in der ersetz wird
Dim pfad As String      'Pfad zur Datei in der ersetzt wird
Dim suche As String     'der Text der gesucht wird, PARAMETER
Dim ersetz              ' Wert die dann eingefügt werden , Spalte 3
Dim ergebnis            'Rückgabewert des Ersetzen
Dim anzparameter As Long 'anzahl von versch. Parameter
Dim namequelle As String    'Name der Datei
Dim i As Long              'Variable zu zählen

Application.ScreenUpdating = False

ziel = ThisWorkbook.Name
pfad =                                             'noch anpassen
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"

quelle = "Datei2.xlsx"
namequelle = "Datei2"

If ActiveSheet.Cells(1, 1) <> "" Then       'wenn der erste Parameter fehlt nix machen
    anzparameter = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'schauen wieviel Parameter da sind
    Workbooks.Open Filename:=pfad & quelle

    For i = anzparameter To 1 Step -1
        suche = Workbooks(ziel).Worksheets(1).Cells(i, 1).Value
        If suche <> "" Then
            ersetz = Workbooks(ziel).Worksheets(1).Cells(i, 5).Value
            ergebnis = Workbooks(namequelle).Worksheets(1).Columns(3).Replace(suche, ersetz, xlPart, , True)
        End If
    Next i

    Application.CutCopyMode = False
    Workbooks(ziel).Activate

    Workbooks(quelle).Close savechanges:=True
End If 'Code ausführung

Application.ScreenUpdating = True
End Sub