VBA Replace: Quell- und Zielspalte definieren

[Zitrone99]

Hallo Zusammen,

da ich leider ein kompletter Neuling auf dem Gebiet Makros/ VBA bin, könnte ich zur Replace Funktion Hilfe gebrauchen.

Folgendes Szenario:

Die Excel besteht aus 2 Arbeitsmappen. In Mappe1.Spalte A ist in jeder Zelle ein Text eingepflegt. Diese Spalte soll nun durchsucht werden, bestimmte Wörter ersetzt und das Ergebnis in Mappe2.Spalte B abgelegt werden. Folgender Code steht bereits zur Verfügung:

Code:

Sub Allergene_Ersetzen()
Dim suchArray()
Dim ersetzArray()
Dim k As Long
MatchCase = True
suchArray = Array("Vollmilch", "Soja")
ersetzArray = Array("Voll<strong>milch</strong>", "<strong>Soja</strong>")
For k = LBound(suchArray) To UBound(suchArray)
Call ActiveSheet.UsedRange.Replace(suchArray(k), _
ersetzArray(k), _
, _
, _
False)
Next k
End Sub

Allerdings werden damit in der aktuellen Mappe alle Zellen bearbeitet und die ursprünglichen Daten überschrieben.

Ich hoffe ihr könnt mir weiterhelfen.

Schon einmal vielen Dank!