Ich nehme jetzt mal an, das die Strings die du erwähnt hast jeweils in Zellen stehen.
folgendes Programm sollte dein Problem lösen.
sub ReplaceALL ()
Dim cell as range
for each cell in Worksheets("TABELLENNAME").usedrange
cell.value=Replace(cell.value,"BEISPIEL","Name0")
cell.value=Replace(cell.value,"BEI1SPIEL","Name1")
cell.value=Replace(cell.value,"BEI2SPIEL","Name2")
cell.value=Replace(cell.value,"BEI3SPIEL","Name3")
next cell
end sub
Die Replace-Funktion sucht in einem String (erstes Argument), einen zu ersetzenden String (zweites Argument) und ersetzt es durch einen weiteren String (drittes Argument). Das ganze ist Case sensitive. Mach von deinem Ausgangs File eine Sicherheitskopie. Die Ersetzung kannst du rückgängig machen wenn du die beiden letzten Argumente vertauschst.
Viel Spass dabei.
|