> > > oder halt herkömmlich per Schleife abarbeiten, was ewig dauern kann …
> >
> > Genau, und da du dann wahrscheinlich auch nicht die Replace-Funktion
> > benutzen kannst, musst du das anders lösen... 
>
> Wieso?
>
> Solange es keine Excelversion < 2000 ist, geht das:
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
Funktioniert das auch bei dem genannten Problem? Deswegen habe ich bei meinem Spaß-Code auf Replace verzichtet...
Ansonsten bevorzuge ich die etwas objektorientiertere Variante - aber das kommt wahrscheinlich, da ich normalerweise .NET programmiere. Immerhin gibt es viele Möglichkeiten für dieses Problem...
Archiv