Uren

[don42]

Hallo allemaal,

Ik heb een bestandje gemaakt voor het bijhouden van mijn werkuren
in blad1 kan ik via een inputBox (selecteer cel c1) de aanvangstijd invullen
vervolgens in C1 de eindtijd en in E1 word de werktijd berekend
heb er een hele formule aanhangen di ik zo gebruik in excel zonder VBA
zo wordt 1256 > 12:56 en 1462 > 15:02 uur

nu wil ik graag dat wat ik gemaakt heb in Blad1 voor een hele maand werkt en dat wil niet lukken
of ik zou de code 31 keer moeten schrijven maar dat kan vast handiger
dus ik dacht aan iets met Do
wat ik gemaakt heb staat in tabblad Blad2
Ik heb het zover voor elkaar dat ik nu een hele maand kan invoeren
maar ik heb 2 vraagjes
1. ik kom niet uit die inputbox! alleen met CTRl Break of maak de hele maand af
2. wil graag als ik een paar dagen heb ingevoerd verder gaan waar ik gebleven was nu begint mijn bestandje weer bovenaan
ik zit er al de hele morgen mee te testen maar kom er echt niet uit

Wie wil er eens naar kijken?/helpen

bestand zoalsik het nu heb
Bekijk bijlage uren.xlsm


bvd

 

[Niels28]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Selection.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("c1:c100")) Is Nothing Then
        karin = InputBox("Aanvang dienst", "Veolia Transport ®")
        Target.Value = (Int(karin / 100) * 60 + karin - Int(karin / 100) * 100) / 24 / 60
        karin1 = InputBox("Einde dienst", "Veolia Transport ®")
        Target.Offset(, 2).Value = (Int(karin1 / 100) * 60 + karin1 - Int(karin1 / 100) * 100) / 24 / 60
        Target.Offset(, 4).Value = IIf(Target.Offset(, 2).Value > Target.Value, Target.Offset(, 2).Value - Target.Value, Target.Offset(, 2).Value + 24 - Target.Value)
    End If


End Sub

Niels

 

[don42]

Bedankt Niels,
Dit is even heel anders als wat ik er van gebakken had
kan je het nog kort voor mij uitleggen wat je gedaan hebt?
ik zie dat je een 2de inputbox aanroept (karin1)
je werkt met offset dat snap ik ook wel
Maar bij offset,4 staat IIF dat heb ik nooit eerder gezien?
don

 

[Niels28]

De IIF doet hetzelfde als een normale als formule.
IFF(vergelijking, waarde als waar, waarde als onwaar)

De karin1 mag ook gewoon karin zijn maar die is blijven staan omdat ik eerst iets anders in gedachte had.
maar je hebt toch een 2de inputbox nodig voor de eindtijd?



Niels

 

[don42]

Oke bedankt voor de uitleg
zo leer ik er nog wat van
helemaal top