Ændre 0,00 til 0.00 for data som skal gemmes som tekst

Jeg har en kode som gemmer et ark som en txt fil, men problemet er at det program som skal importere filen kun acceptere punktum som decimal-separator.

Den eneste måde som indtil videre har været at søge og erstat med excels egen funktion, men det skal gøres via en kode og jeg har forsøgt en del løsninger som ses herunder, men uden held med en eneste af dem.


1. Optaget makro:

Worksheets("Opsummering").Range("S1:S150").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False



2. "Substitute" makro:

Dim antal As Range

For Each antal In Worksheets("Opsummering").Range("s1:s150")

    If antal = "" Then GoTo slut
             

    antal = Application.WorksheetFunction.Substitute(antal.Value, ",", ".")

slut:

Next antal

End Sub



3. Numberformat makro:

Worksheets("Opsummering").Range("s1:s150").Select
             
Selection.NumberFormat = "###0.00"


Jeg vil klart helst undgå at bruge "selection", men det skal simpelthen bare virke med en form for kode

På forhånd tak