Jörg Lorenz schrieb am 22.July.2009, 11:26:08 in der Kategorie pc.coding
Dim lngZ As Long
With Sheets(\"Tabelle1\")
For lngZ = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row
.Cells(lngZ, 2) = Replace(.Cells(lngZ, 2), \"ar\", \"blu\")
Next
End With