Avatar billede hubertus Seniormester
12. august 2016 - 09:55 Der er 7 kommentarer og
1 løsning

flytning af data til nyt ark - lidt problematiske tal.

I en pivottabel får jeg f.eks.
97,83%, 0,67%, 0,67%, 0,33% og 0,50%  i hver sin celle.
Jeg skal have overført disse procenttal til et resultatark, som løbende skal opdateres, dvs. hele tiden få føjet nye linjer til. Det er kun værdien der skal overføres, der skal ikke være et sammenhæng med tabellen.
Min udfordring er, at når jeg lægger disse procenter over i en variabel for at kunne skrive dem over i resultatarket, så får jeg :
Var(1) = "0,978260869565217"
Var(2) =  "6,68896321070234E-03"
Var(3) = "6,68896321070234E-03"
Var(4) = "3,34448160535117E-03"
Var(5)= "5,01672240802676E-03"
Tallene er jo korrekte, jeg har blot kun brug for at angive procentallene. Hvordan kommer jeg videre med det?
Evt. andre måder at få tallene overført til resultatarket modtages gerne.
Avatar billede supertekst Ekspert
12. august 2016 - 10:21 #1
Prøv at formatere "modtage-cellerne" som Procent
Avatar billede hubertus Seniormester
12. august 2016 - 11:46 #2
Hej supertekst
Når jeg ændrede dim af variablen til Variant og formaterede som du foreslår, så opnår jeg det ønskede resultat.

Tak for hjælpen

ps. kunne jeg havde valgt en anden dim af variablen?
Avatar billede supertekst Ekspert
12. august 2016 - 11:51 #3
Hej Hubertus

Fint og selv tak

Vedr. ps - tænker du på at "spare" konverteringen til procent - eller?
Avatar billede hubertus Seniormester
12. august 2016 - 12:25 #4
ja, hvis muligt.

hvordan vil formateringen se ud, hvis den skal være en del af koden, som f.eks. kan se sådan ud:

For I = 1 To 5
      Range("A15").Offset(I - 1, 0).Value = VAR(I)
    Next
.
Avatar billede supertekst Ekspert
12. august 2016 - 12:30 #5
Ok - prøver at se på det ..
Avatar billede supertekst Ekspert
12. august 2016 - 12:47 #6
Dim var(5), tal As Double
Sub test2()
var(1) = "0,978260869565217"
var(2) = "6,68896321070234E-03"
var(3) = "6,68896321070234E-03"
var(4) = "3,34448160535117E-03"
var(5) = "5,01672240802676E-03"

For I = 1 To 5
        tal = var(I)
        Range("A15").Offset(I - 1, 0).Select
        Selection.Value = tal
        Selection.NumberFormat = "0.00%"
    Next
End Sub
Avatar billede hubertus Seniormester
12. august 2016 - 14:05 #7
Det ser fint ud - så kan jeg komme videre med min kode.
Tak for hjælpen og God weekend
Avatar billede supertekst Ekspert
12. august 2016 - 15:32 #8
Fint og selv tak samt god weekend herfra det nordvest jyske
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

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