Tijd handmatig invullen, formule werkt niet

[Albatros]

Beste helpers,

In bijgevoegd excelsheet wil ik handmatig een tijd invullen, maar dan werkt een bijbehorende formule niet meer. De formule werkt wel, als ik de tijd middels kopieren, plakken speciaal waarden, in de cel plaats. De celeigenschappen staat in beide gevallen gelijk.
Wie kan mij van deze "spook" verlossen?

Albatros

 

[Elsendoorn2134]

Albatros,

Tijd is en blijft een lastig probleem binnen Excel. Dit komt vooral omdat het hele kleine eenheden zijn.
Zoals je wel een ziet maakt Excel rekenfoutjes bij optellingen met vele cijfers achter de komma (bijvoorbeeld tijden).
Verander in kolom C de formule in =WAARDE(TEKST(+B11-$E$9;"uu:mm:ss")). Dit verwijderd eventuele afrondingsfouten
en je formule werkt weer korrekt.

Veel succes.

Elsendoorn 2134

 

[Albatros]

Hoi Elsendoorn

Bedankt voor je reactie.
Je formule is een schot in de roos. Bedankt hiervoor!
Echter de formule wordt middels een maro er neer gezet. Ik krijg nu een foutmelding bij de "uu".
Als hier ook nog een oplossing voor is?

[

    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Application.Goto Reference:="R10C3"
    ActiveCell.FormulaR1C1 = "Twerkel"
    Range("C11").Select
    ActiveCell.FormulaR1C1 = "=WAARDE(TEKST(+B11-$E$9;"uu:mm:ss"))"
    'ActiveCell.FormulaR1C1 = "=RC[-1]-R9C5"
    Application.Goto Reference:="R10C3"
    
    With Range("c11")
        .Copy
        .AutoFill Range(.Cells(1), .Offset(, -1).End(xlDown).Offset(, 1))
    End With
    
End Sub

Albatros

 

[oeldere]

misschien gaat dit met de engelse versie:

verander jouw code

;"uu:mm:ss"))"

eens in

;"[B][COLOR="red"]hh[/COLOR][/B]:mm:ss"))"

 

[Albatros]

Beste Oeldere,

Helaas, werkt niet.
(btw ik heb Nl-versie)

Albatros

 

[HSV]

 ActiveCell.FormulaLocal = "=WAARDE(TEKST(B11-$E$9;""uu:mm:ss""))"

Er staat niets in cel E9, dus kan dat er wel uit.

Range("C11").FormulaLocal = "=WAARDE(TEKST(B11-$E$9;""uu:mm:ss""))"

 

[Albatros]

Beste HSV,

Jouw formule komt in de richting, maar in E9 staat wel degelijk iets, nl een formule om het tijdsverschil uit te rekenen.

Albatros

 

[HSV]

Als dit stukje code is uitgevoerd:

Columns("C:C").Select
    Selection.Insert Shift:=xlToRight

Is cel E9 leeg, en staat het in cel F9.

 

[Albatros]

In E9 staat: (Zie mijn bijlage in post 1)
=D9-D8. (Eerst staat deze formule in D9, maar na het invoegen van een kolom, staat de formule in E9).
Hier worden 2 tijden van elkaar afgetrokken.

Albatros

 

[HSV]

Hoef je de code dan maar één keer uitvoeren?
Wat als de waarde in E9 groter is dan C11.

 

[oeldere]

ik heb de rode cel aangepast.

L2=

=INDEX($C$10:$AZ$6693;VERGELIJKEN($J$2;$C$10:$C$6693;[COLOR="red"]1[/COLOR]);VERGELIJKEN(L1;$C$10:$AZ$10;0))

de uitkomst van deze formule is 25,9 (deze waarde ligt 1 rij ligt boven de gewenste uitkomst).

zelf heb je gezocht op 0; dus een exact match; deze wordt niet gevonden.

hieruit concludeer ik dat de tijd niet gelijk is.

misschien dat tijd afgerond wordt??

 

[Albatros]

Beste helpers,

Omdat het bestand waarin ik werk vrij groot is heb ik het niet in zijn geheel kunnen plaatsen. Dit wekt nu misschien enige verwarring.
De aangeboden oplossing komt zeer nauw in de buurt maar nu is mijn vraag concreet:
Hoe kan ik onderstaande formule werkend in een makro plaatsen?

ActiveCell.FormulaR1C1 = "=WAARDE(TEKST(+B11-$E$9;"uu:mm:ss"))"

De makro geeft nl. hier een foutmelding.

Albatros

 

[HSV]

Wel alle geposte reacties lezen graag.

Zie mijn # van gisteren 22:06 uur.

 

[oeldere]

De makro geeft nl. hier een foutmelding.

welke foutmelding geeft de macro.

of bedoel je dat de uitkomst in L2 een fout weergeeft.

zie hiervoor mijn opmerkingen in #11.

in dat geval dient je, denk ik, eerst te kijken om het probleem met de formule op te lossen.

 

[Albatros]

Beste HSV,

Ik had jouw aanpassing over het hoofd gezien
De formule is nu helemaal naar wens. Geweldig :thumb:

Bij deze mijn dank ook aan iedereen die hier zijn bijdrage aan heeft geleverd. :thumb: :thumb:

Albatros