Fra tekst til tal

Du skal ikke selv notere kr. Det skal du lafe Excel om.

Du gør det i formater og valuta.

Marker dine data og vælg : Fomater --> Celler --> Valuta

De rer tale om tusinder linier jeg copy paster fra en webside. Og der står Kr.

Tja, så skal du havem gang i noget kode der fjerne de sidste 4 tegn i hver linie.
Det vil kunne lade sig gøre om end med lidt tid til kodning.

Prøv med søg/erstat og erstat " kr." med " ".

Altså mellemrum kr. erstattes med mellemrum.

forudsat du har engelsk konfiguration, skal du til hver celle lave en sådan reference:
=MID([dit felt];1;LEN([dit felt])-4)

Hvis du har alle tallene i din a-kolonne, skriver du i B1: =MID(A1;1;LEN(A1)-4) og kopierer B1-cellen til b-kolonnen (pas på med at kopiere til hele b-kolonne - kun de nødvendige rækker - ellers skal du måske vente i noget tid mens den regner).

Vh Mathias.

donslund>> hvorfor lave det simpelt, når man kan lave det besværligt :P.

Ignorer bare mit svar.

Vh Mathias.

kvadratreodenaf1>> Ved du hvad det hedde på dansk?

kvadratreodenaf1>> Dit kan måske bedre bruges, da der er et mellemrum til sidst jeg ikke kan få fjernet med søg erstat.

jochke-> Du kan nøjes med at udfylde søgeruden, og lade Erstatruden stå tom. så erstattes der med ingenting.

jkrons>> problemet er at der til sidst efter Kr. er et mellerum som ikke kan fjernes ved søg erstat.

Hos mig fungerer det nu fint.

Søg efter <mellemrum>kr.<mellemrum>

erstat med <ingenting>

Ellers prøv at markere dine celler og kør så denne makro_

Sub SltKr()
    For Each c In Selection.Cells
        c.Value = CDbl(Mid(c.Value, 1, InStrRev(c.Value, " ")))
    Next c
End Sub

Cool...din makro er løsningen. Smid et svar.

Velbekomme :-)

Og måske her skulle lukkes ;-)