Avatar billede gurskov Nybegynder
15. november 2004 - 00:46 Der er 6 kommentarer

Excel VBA ændre celles indhold eks. fra 25,25kg til 25,25

Hvordan kan jeg ændre en celles indhold fra eks. 25,25kg, (cellen opfattes af excel som tekst fordi cellen har "kg" eftertallet.)Til 25,25 (som nu skal opfattes af excel som tal
nomerisk værdi som kan regnes på)
Dvs. fjerne "kg" fra cellen så dens indhold er nomerisk)
Løsningen skal skrives i VBA for Excel
Jeg har forsøgt med funktionen "SØG RET" uden held den efterlader
to tomme pladser der hvor "Kg" stod, så det forsat er et tekst der står i cellen så der ikke kan regnes på.

Jeg håber at der er nogle der vil hjælpe mig
På forhånd tak.

Jeg har før stillet det samme spørsmål uden at den rigtige løsing
blev fundet

Med venlig hilsen
  Bent
Avatar billede bak Forsker
15. november 2004 - 08:04 #1
Denne makro skulle gerne ændre det markerede område til værdier

Sub test()
Dim c As Range
For Each c In Selection
    c.NumberFormat = "General"
    c.Value = Val(Replace(c.Value, ",", "."))
Next
End Sub
Avatar billede bak Forsker
15. november 2004 - 08:08 #2
Lidt forbedret

Sub test()
Dim c As Range
For Each c In Selection
    If Not IsEmpty(c) Then
        c.NumberFormat = "General"
        c.Value = Val(Replace(c.Value, ",", "."))
    End If
Next
End Sub
Avatar billede kabbak Professor
15. november 2004 - 08:15 #3
Hvorfor fortsatte du ikke her gurskov ?
http://www.eksperten.dk/spm/556947
Avatar billede bak Forsker
15. november 2004 - 08:41 #4
Ja, det ville da have været en god ide, for jeg kan se at kabbak allerede var nået frem til stort set denne løsning.
Avatar billede gurskov Nybegynder
16. november 2004 - 00:39 #5
Tak for jeres forslag til løsning af mit problem.
Men de virker ikke rigtig, for de sletter hele inholdet i cellen, der skulle kun fjernes "Kg" fra cellen resten af inholdet skulle blive der som en nomerisk værdi
som der skal regnes på.

Denne linie fjerner "kg" fra cellen men efterlader to tomme pladser hvor "Kg"
stod så cellen er forsat et alfa format som der ikke kan regnes på

Cells.Replace What:="kg", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False

Jeg håber med denne kommentar at i nu bedre mit problem.

Med venlig hilsen
    Gurskov
Avatar billede bak Forsker
18. november 2004 - 11:10 #6
Det forstår jeg ikke ....
Makroen burde ikke slette cellens indhold. Den laver cellens format om til værdi, finder værdien i cellen og genplacerer denne i cellen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester