|
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:
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!
|