Wert nur übernehmen bei bestimmten Wert

[RPP63]

Hallo, "Replace()" ist eine String-Function. Sobald diese in dem erweiterten Bereich andere Datentypen trifft, kann sie damit nix anfangen und bringt eine Fehlermeldung.

Wie kommst Du denn auf diesen Trichter?
Direktfenster:

PHP-Code:

?Replace("a92Qv", 2, "W")
a9WQv
?Replace(123, 3, "drei")
12drei 


@Hypothetix:
So it is!
Die Range.Replace-Methode frühstückt alle Zellen eines Bereichs in einem Zug ab.
Die Replace-Funktion müsste in einer Schleife über alle Zellen des Bereichs laufen.
Tempomäßig suboptimal.

Code:

Sub Test()
Dim Zelle As Range
For Each Zelle In Range("A9:D88")
   Zelle = Replace(Zelle, "AA", "XY")
Next
End Sub

Gruß Ralf