Tusindstals seperator og komma

HejClaus

Hvis du vil undgå VB, så kan du bruge denne formel:

=VALUE(SUBSTITUTE(SUBSTITUTE(tal;\",\";\"\");\".\";\",\"))

hvor tal er det tal du vil have ændret fx.

1,000.00 formlen vil så ændre tallet til 1000,00
Du kan så formatter cellen så den viser 1000 seperator, hvis du gerne vil have det med.

Hilsen

Lars Simonÿ

>Isimony, der er ca. 5000 linier, kan jeg gøre det af en omgang - beklager jeg er novice i Excel?

Du kan indsætte denne macro i dit regneark. Den vil kunne omskrive alle dine tal i en kolonne.

Hilsen

Lars Simonÿ

Sub UStoDK()
    \' Pre : none
    \' Post: Omskriver us tal om til dk tal med tusindseperator
   
    Dim talUS As String
    Dim talDK As Double
    Dim kolonne As Integer
    Dim raekker As Integer
    Dim maxRaekker As Integer
       
    kolonne = 1        \' Hvilken kolonne 1 = A
    maxRaekker = 5000  \' Antal rækker med tal
   
    For raekke = 1 To maxRaekker
        talUS = ActiveSheet.Cells(raekke, kolonne)
        If Not talUS = \"\" Then
            talUS = Replace(talUS, \",\", \"\")
            talDK = Replace(talUS, \".\", \",\")
            ActiveSheet.Cells(raekke, kolonne) = talDK
        End If
    Next raekke
End Sub

Du kan bruge denne, hvis det er flere kolonner...

Sub UStoDK()
    \' Pre : none
    \' Post: Omskriver us tal om til dk tal med tusindseperator
   
    Dim talUS As String
    Dim talDK As Double
    Dim kolonne As Integer
    Dim raekker As Integer
    Dim maxRaekker As Integer
    Dim maxKolonne As Integer
       
    startKolonne = 1        \' Den første kolonne 1 = A
    maxRaekker = 5000  \' Antal rækker med tal
    startRaekke = 1        \' Den første række 1=1
    maxKolonne = 256  \' Den sidste kolonne

    For raekke = startRaekke To maxRaekker
      For kolonne = startKolonne to maxKolonne
        talUS = ActiveSheet.Cells(raekke, kolonne)
        If Not talUS = \"\" Then
            talUS = Replace(talUS, \",\", \"\")
            talDK = Replace(talUS, \".\", \",\")
            ActiveSheet.Cells(raekke, kolonne) = talDK
        End If
      nexc kolonne
    Next raekke
End Sub

3. sidste linie skal være next kolonne - ikke?
Hjææææælp, den går i uendelig loop?

Jo. Du må undskylde stavefejlen ;-)

Den går ikke i uendelig loop. Det tager tid at gå 5000 x 256 celler igennem. Du skal bare ændre maxKolonne til det antal kolonner du skal have ændret. Det samme gælder med maxRaekker.

Jubiiiii, så er det fikset, med endnu en workaround. Tak for hjælpen. //Claus