Konverter komma til punktum i hel kolonne

Kan du ikke bruge den indbyggede Find & Replace - det virker fint hos mig.

Jo, det mærkelige er at det virker fint når jeg bruger find og erstat, men når jeg så laver/optager en makro der skal gøre det automatisk for mig, så virker det ikke.

Ja, det er underligt - det er det samme hos mig, winXP + excel 2003.

skal det være ved hjælp af en makro. for måske kunne de bruge erstat i funktionen søg og erstat

Det skal desværre være via makro.
Jeg kan godt få det til at virke med søg og erstat, men det er desværre ikke det jeg går efter

ja så kan jeg ikke hjælpe :-)

Kan denne bruges hvis du rediger lidt i den .
Det er ikke mig selv der har lavet den, og det er til 2007

Sub erstat()
Dim DataInput, DataOutput
DataInput = InputBox("Skriv det der skal søges efter i cellerne:                            Husk der skelnes mel store og små bogstaver")
If DataInput = "" Then Exit Sub
DataOutput = InputBox("Skriv den tekst som cellerne skal erstattes med: ")
For Each c In Selection
If InStr(1, c.Value, DataInput) Then c.Value = DataOutput
Next
End Sub

Det er tilsyneladende fordi at vi bruger punktum som tusindtalsseperator. Hvis du prøver med al mulig anden tekst virker makroen upåklageligt.
Jeg ved ikke om du via kode kan ændre på lokaliseringsinstillingerne, for så var det jo en mulighed.

Sådan ændres tusindtalsseperatoren:

Sub ChangeSystemSeparators()

   
    ' Define separators and apply.
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = "."
    Application.UseSystemSeparators = False

End Sub

Hov, jeg kom til at lave samme decimal- og tusindtalsseperator. det skulle være sådan her:

Sub ChangeSystemSeparators()

 
    ' Define separators and apply.
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = ","
    Application.UseSystemSeparators = False

End Sub

Marker dine tal og kør kode

Sub test()
Selection.NumberFormat = "0.00"
Application.UseSystemSeparators = False
End Sub

husk eftarfølgende at sætte til true igen:
Application.UseSystemSeparators = True

Jeg kan godt få 'stry' til at virke, men jeg håber på at kunne klare det uden at skulle ændre talformatet i hele arket.

Når jeg kører Excelents kode sker der ikke rigtig noget ved mig.

Makroen virker på tekst?

Da ville jeg prøve å formatere tallene til tekst, før endring av desimalskilletegn.

(Selection.NumberFormat = "@")

Hvis ønskelig kan man i ettertid endre formatet tilbake til tall.

Sub Makro3()
    Columns("L:L").Select
    Selection.NumberFormat = "@"
    Selection.Replace What:=",", Replacement:="."
End Sub

Det virker desværre ikke hos mig.
Den ændrer ikke noget..
Hvis jeg har feks har sat et A ind efter tallet virker det, derimod.

Jeg er derfor kommet til at tænke på en løsning, som måske vil virke.
Den er ikke køn, men hvis den virker, så er jeg glad :-)

1: Man indsætter f.eks. et "A" efter alle tallene i kolonne L
2: Erstatter , med . som den gerne vil med tekst
3: Fjerne "A" igen, så det bliver et tal

Jeg har prøvet med noget i denne retning, uden at jeg dog kan få det til at virke.

Måske kunne I klare den?


Sub makro3333()
For Each Cell In Range("L2:L100")
    If Cell <> "" Then
        Cell = Cell & "A"
        Else
    End If
Next

Columns("L:L").Select
    Selection.NumberFormat = "@"
    Selection.Replace What:=",", Replacement:="."
End Sub

Det må være noe annet som er galt.

Benytter du to forskjellige excel-filer?

Isåfall må du sjekke at koden virker på riktig excel-fil.
Det er mulig koden driver å formaterer kolonne L i Feil fil.

Jeg bruger én fil og jeg bruger Excel 2007.
Men det virker desværre ikke.

Bruker du flere ark?

Undersøk hvilket format det er på Cellene etter at makroen er kjørt.

ja, der er flere faner i mit regneark.
Jeg har også prøvet i en hekt ny fil med nye tal. Der virker den heller ikke.

Cellerne er formateret som TEKST efter makroen er kørt.

Jeg fik problemet  løst ved at kombinere oyejo´s lille kodestump:

Columns("L:L").Select
    Selection.NumberFormat = "@"
    Selection.Replace What:=",", Replacement:="."


med svaret fra denne tråd.
http://www.eksperten.dk/spm/871011

Jeg ved ikke hvorfor det er sådan, men nu er det løst :-)
Mange tak for indsatsen til jer alle.
oyejo har du et svar?

mrkr, flott at du fikk løst ditt problem.

obs, et svar ;-)

Da jeg selv lige har haft problemet, med ikke forstod den valgte løsning, smider jeg lige min løsning. til fremtidig brug :-)

ActiveSheet.Range("F:F,J:J").Select                ' ændre ,tal til .
    Selection.NumberFormat = "@"                        ' ændre til tekst
    For Each c In Selection
        If c.Value <> "" Then c.Value = Replace(c.Value, ",", ".")
    Next