Suchen und ersetzen in Datei
26.11.2020 13:45:35
Bubba
ich würde gerne in einer Datei mehrfach Suchen und ersetzen machen.
Bsp:
Die Werte die gesucht werden sind in in Tabelle2 A2:A3
Blau
Rot
Die Werte die ersezt werden sind in der Tabelle2 B2:B3
TEST_1
TEST_2
In der Datei.txt steht:
"hallo das ist Rot und das ist Blau"
Bei dem Ausführen soll dann das Makro Blau mit TEST_1 und Rot mit TEST_2 ersetzen.
"hallo das ist TEST_1 und das ist TEST_2"
Ich habe bereits ein SUCHEN und ERSETZEN Makro was die Werte jedoch nicht in der Datei bearbeitet sondern in Tabelle1:
Option Explicit
Sub SUCHEN_ERSETZEN()
Dim i%, strWhat$, strRplc$
With Sheets("Tabelle2")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
strWhat = .Cells(i, 1)
strRplc = .Cells(i, 2)
Sheets("Tabelle1").Cells.Replace strWhat, strRplc, xlPart
Next
End With
End Sub