Draaitabel kolom uren notatie

[omersade]

Ik heb dit met hulp van deze forum (VenA) kunnen maken.
Ik zit met volgende luxe probleem:

Als ik via INVOER uren invullen, geeft resultaat als 7,75 aan ipv 7,45.
Hoe kan ik deze aanpassen?
Dit geldt ook voor Week en Maand

Bij voorbaat vriendelijke groet,

 

[OctaFish]

Je gebruikt dan ook getallen, geen tijden. Als je een tijd ingeeft, is de getalswaarde altijd tussen 0-1. 7,75 kan dus nooit een tijd zijn.

 

[omersade]

Bedankt voor je reactie OctaFish,
als ik getalwaarde omzet naar de tijd dan wordt de data niet weggeschreven.
Moet dat dan VBA code aangepast worden?

Sub VenA()
ReDim ar1(3, 0)
With Sheets("INVOER").Cells(1).CurrentRegion
ar = .Value
On Error Resume Next
.Offset(2).SpecialCells(2, 1).ClearContents
End With
For j = 4 To UBound(ar) - 1
For jj = 2 To UBound(ar, 2) - 3 Step 4
If Len(ar(j, 1)) > 1 Then
ar1(0, t) = ar(j, 1)
ar1(1, t) = CDbl(ar(3, jj))
ar1(2, t) = ar(j, jj + 3) * 24
ar1(3, t) = DatePart("ww", ar(3, jj) - Weekday(ar(3, jj), 2) + 4, 2, 2)
t = t + 1
ReDim Preserve ar1(3, t)
End If
Next jj
Next j

Sheets("Database").ListObjects(1).ListRows.Add.Range.Resize(t, 4) = Application.Transpose(ar1)
ThisWorkbook.RefreshAll
End Sub

 

[Haije]

zie laatste tabblad

 

[omersade]

Bedankt voor je reactie Haije,

Ik heb jou methode geprobeerd maar dit is niet wat ik wil.

Ik vul dus vanuit de tabblad "INVOER" de uren in en dan, schrijf ik met een macroknop de uren weg naar de tabblad "Database", vervolgens ook naar de tabbladen "Week" en "Maand".
Ik denk zelf dat die via de VBA code moet gebeuren!

 

[VenA]

Het blijft altijd lastig uren en datums. Uren kan je op twee manieren zien
- in een uurnotatie bv 12:45 is 12 uur en 45 minuten
- in een getalnotatie bv 12,75 is 12 uur en 0,75 keer een uur van 60 minuten.

Type in A1 12:45 zet in B1 = A1 en zet de notatie op getal. Zet in C1 = A1*24 en zet de notatie op getal.

Kijk vervolgens in de code, die je tussen codetags hoort te plaatsen, eens naar deze regel.

ar1(2, t) = ar(j, jj + 3) * 24

Zie de verschillen in het tabje 'Week'

 

[omersade]

Sorry VenA,
Ik heb van alles geprobeerd maar, dat gaat mijn pet te boven!
Het is eigenlijk een luxe probleem

Bedankt voor jullie suggesties.

 

[omersade]

Opgelost!
ar1(2, t) = ar(j, jj + 3) * 24
Ik heb de sterretje en 24 weggehaald en de cel notatie omgezet naar tijd.

 

[VenA]

Zo moeilijk is het blijkbaar allemaal niet:d

 

[omersade]

Nee eigenlijk niet maar ja, je moet het wel weten
Thnx VenA