optellen van tijd in vba

[andrevanderhors]

Hallo

Met onderstaande simpele vba code kan ik wel wat

Sub Subtract()

ActiveCell.Value = ActiveCell.Value - 1

End Sub

Nu wil ik eigenlijk geen getal aftrekken maar een x aantal minuten bijv 15min

Sub Subtract()

ActiveCell.Value = ActiveCell.Value -0:15

End Sub

Echter was dit wel een simpele gedachte, heb gezocht en denk zelf dat de oplossing erinzit dat ik een formaat moet aangeven,
Echter heb ik geen idee hoe dit te maken.
Kan iemend mij helpen?

Groet andre

 

[OctaFish]

Probeer dit eens:

ActiveCell.Value = ActiveCell.Offset(-1, 0).Value - TimeSerial(0, 15, 0)

 

[andrevanderhors]

hellaas niet.
Ik gebruik de code in excell om een ingegeven tijd met 15 min te verhogen of verlagen.
krijg nu maar dat het getal een keer 15 minder wordt.

 

[OctaFish]

Ik heb de formule uitgetest met een andere cel. De Offset moet je er nog even uitslopen.