isString vo VBA neexistuje ale po miernej modifikácii na
Dim Vyber As Range
Dim Bunka As Range
Set Vyber = Range("AE11:AE2348")
For Each Bunka In Vyber
If WorksheetFunction.IsText(Bunka.Value) Then Bunka.Value = Replace(Bunka.Value, ".", "")
Next Bunka
to funguje ;)
Dík
poradna.net
Neregistrovaný Přihlásit Registrovat