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
|