VBA kode der kan beregne flere brøker i samme celle

Beregner fint hos mig.
Brøk frekvens: Format= Standard. = tegn indsat foran brøker.
Korrigeret tid:  Format= Tal.  Formel indsat:  =H*G  Antal decimaler 2
Giver:
Tid i ttu    Brøk frekvens    Korrigeret tid
100,00 x 7,936507937    = 793,65
122,40 x 0,133417244    = 16,33
149,82 x 0,00065              = 0,10
183,37 x 0,022902861    = 4,20
224,45 x 0,26                    = 58,36
274,72 x 5                          = 1373,60
336,25 x 0,25                    = 84,06

Hej store-morten
Jeg kan også få det til at beregne, men problemet er at brøk frekvenserne skal være synlige og ikke beregnet. Brøk frekvenserne skal vise andre brugere hvordan man er kommet frem til korrigeret tid. Håber det kan løses med vba eller formel.

Er brøk frekvenserne faste (ej ændres af bruger)?

I H2 '1/5*20/1*1000/252*1/2 opfattes som tekst.
I I2 =(1/5*20/1*1000/252*1/2)*G2

Nej, de er ikke faste og vil blive ændret løbende

Måske du kan bruge følgende i celle I2
=G2*mEval
Kopier nedad til og med I8.

mEval er en navngiven formel:

Navn: mEval
Refererer til: =EVALUER(H2)    (EVALUATE hvis engelsk)
Det er vigtigt, at der ikke er dollartegn, hverken foran H eller 2.

Der er tale om en meget gammel overlevering fra den gang der var noget der hed Excel 4 (med XLM-makroer). De fungerer dog stadigvæk, men vil formentlig blive fjernet i Excel-versioner, nyere end 2010-versionen. Så er du advaret.

Hej dkhanknu, det kan jeg ikke få til at virke, viser #NAVN? i I2.
jeg bruger iøvrigt en dansk 2003 version.


Alle: Er det muligt at lave en makro, der kan omregne brøkerne  i kolonne H som ganges med cellerne i kolonne G hvis de >0, og vise resultatet i cellerne i kolonne I, hvis ingen resultat blank celle.

Er det muligt at lave en makro, der kan omregne brøkerne  i kolonne H som ganges med cellerne i kolonne G hvis de >0, og vise resultatet i cellerne i kolonne I, hvis ingen resultat blank celle.
NB. brøk frekvenserne skal være synlige som de står i kolonne H og og det skal være mulig at ændre brøkerne.

På det ark du i din indledende post linkede til virker det fint for mig i Excel 2003. Det sidste, du nævner kan du da bare styre ved at lave et fejlcheck som:
=HVIS(IKKE(ER.FEJL(G2*mEval));G2*mEval;"") hvis du ikke skal bruge reultatet i videre beregninger. Hvis du skal, så erstat "" til sidst med 0 og så lave en formatering der skjuler 0-værdier, hvis du ønsker at cellen skal være blank.

Lagde du mærke til, hvad jeg skrev i første post, at det hedder EVALUATE, hvis du bruger engelsk Excel?

Vil du ikke prøve at oploade et eksempel, jeg kan bare ikke få det til at virke. Vender tilbage i morgen, har fyraften

I celle I2
Oprette et navn for en formel eller en konstant
Peg på Navn i menuen Indsæt, og klik på Definer.
Skriv formlens navn "mEval" i boksen Navne i projektmappe.
Indtast et lighedstegn (=), efterfulgt af formel- eller konstantværdien i boksen Refererer til. =EVALUER(H2)

Jeg ved ikke om du har set det, men jeg uploadede en fil i går kl. 15:53.

Hej dkhanknu
Nu virker det som det skal, rigtig mange tak. Vil du smide et svar.

Hej store-morten
Tak for hjælpen, der skulle lige et vink med en vognstang til, før den fes ind.

Takker for Jeres tid og indsats

OK
Hans

Velbekomme. ;-)

Mangler et svar, så jeg kan give point

Det må være Hans, der skal lægge et 'Svar'

Et svar.
Hans

Hej Hans, det er en ommer hvis du vil have point

Det er da utroligt som man kan kludre i det.
Hans