Søg og Erstat i Excel VBA

Hvad har du skrevet i VBA ??

Det her virker fint på en importeret fil:
(Erstatter 99 med 100, men du skal huske at vælge din fil først (workbooks(\"something\").activate)

Selection.Replace What:=\"99\", Replacement:=\"100\", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

Hej bak

Jeg importerer en mændge tal med punktum sum decimal separator. Søg og erstat koden erstatter godtnok punktum med komma. MEN Excel opfatter ikke den nye værdi som et tal, men som tekst !

Her er et uddrag af koden:
    Workbooks.OpenText FileName:=\"R:\\positioner\\posot02a.txt\", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 2), Array(5, 1), Array(6, 2), Array(7, 5), Array(8, 1), _
        Array(9, 2), Array(10, 1))
    Range(\"A1:J2000\").Select
    Selection.Copy
............
    Columns(\"BN:BO\").Select
    Selection.Replace What:=\".\", Replacement:=\",\", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False
............
Det spiller sgu stadigvæk ikke?

  Hej bak

Jeg importerer en mændge tal med punktum sum decimal separator. Søg og erstat koden erstatter godtnok punktum med komma. MEN Excel opfatter ikke den nye værdi som et tal, men som tekst !

Her er et uddrag af koden:
    Workbooks.OpenText FileName:=\"R:\\positioner\\posot02a.txt\", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 2), Array(5, 1), Array(6, 2), Array(7, 5), Array(8, 1), _
        Array(9, 2), Array(10, 1))
    Range(\"A1:J2000\").Select
    Selection.Copy
............
    Columns(\"BN:BO\").Select
    Selection.Replace What:=\".\", Replacement:=\",\", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False
............
Det spiller sgu stadigvæk ikke?

omdanner teksten til værdier (tal)
range(\"BN1).select  Selection.CurrentRegion.Select
For Each c In Selection.Cells
    c.Value = CDbl(c.Value)
Next

range(\"BN1\").select 

Selection.CurrentRegion.Select
For Each c In Selection.Cells
  c.Value = CDbl(c.Value)
Next

Et lille trick jeg lige så:
sæt det her ind i din open sætning lige efter sidste array.Så behøver du slet ikke ændre noget med kode. Excel kan selv.

DecimalSeparator=\".\", ThousandsSeparator = \",\"

Det kan også være omvendt!! :-)

Workbooks.OpenText FileName:="R:\positioner\posot02a.txt", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 2), Array(5, 1), Array(6, 2), Array(7, 5), Array(8, 1), _
        Array(9, 2), Array(10, 1)), DecimalSeparator=".", ThousandsSeparator = ","

Hej bak

Nu virker det ... 1.000 tak for hjælpen :-)