Tijd -1 uur

[Clararthur]

Hoi,
Een tijdje geleden heb ik hier eens de vraag gesteld hoe je van een tijd 1 uurtje kan aftellen. Probleem op gelost door -(60/1440).
Nu wou ik dat in een macro gieten, en het lukt me niet, want ik krijg voortdurend fout 13: typen komen niet met elkaar overeen.
In mijn kolom 7 staat bv. 28/01/2008 14:33 en in kolom 8 moet nu komen: 28/01/2008 13:33

Ik had hetvolgende gemaakt:

For rij = 4 To 260 Step 2
        Cells(rij, 8) = Cells(rij, 7) - (60/1440)
next

En krijg dus een foutmelding!

 

[Haaren101]

Ik heb je code in een macro gezet en bij mij werkt het prima

Plaats anders een een voorbeeldje

Ron

 

[Wigi]

Die code werkt bij mij wel op een leeg bestandje.

Wigi

 

[Clararthur]

Zou het probleem kunnen zijn dat mijn cellen in het formaat 'aangepast(dd/mm/jjjj hh:mm)' staan?

 

[Wigi]

Neen, dat is opmaak en dat verandert niet het getal zelf in een cel.

Datums en tijden zijn in essentie getallen in Excel, kommagetallen of preciezer te zijn.

Wigi

 

[Clararthur]

Bekijk bijlage Min1uur.zip

Geen idee wat er fout gaat. Hopelijk niks 'dom'.

 

[Haaren101]

Sub Knop1_BijKlikken()
Dim rij As Integer
Dim a As Date

For rij = 4 To 256 Step 2
a = Cells(rij, 7)
    Cells(rij, 8) = a - (60 / 1440)
Next

End Sub

Hey Clarathur,
het is kennelijk iets met het declareren. Als je het doet zoals hierboven dan werkt het. Alleen weet ik niet waarom. @Wigi: enig idee??

Ron

 

[Wigi]

Kolom G bevat geen echte getallen.

Daarom:

Zet ergens in een cel een 0.

Kopieer die 0 en selecteer kolom G.

Druk toets F5, dan Constanten.

Kies Bewerken > Plakken speciaal > Waarden en Optellen, kies OK.

Voer de code uit en delete de 0 weer.

Wigi

 

[richard1970]

Je hoeft geen 0 in een cel te zetten. Een lege cel kopiëren en dan jouw handelingen utivoeren lukt ook.

Richard

 

[Wigi]

Je hoeft geen 0 in een cel te zetten. Een lege cel kopiëren en dan jouw handelingen utivoeren lukt ook.

Richard

Ah Ok, mercikes

 

[Clararthur]

Bedankt :thumb::thumb: