---

Jeg har lavet et lille ark som jeg bruger til beregning af arbejdstimer, det volder dog store problemer.

Celle A1 indeholder mødetidspunkt: f.eks 11:00
Celle B1 indeholder sluttidspunkt: f.eks 19:00
Celle C1 beregner antal timer.

Ideen var så : At celle d1 skulle beregne aftentillæget i perioden 18:00 - 08:00

Problemet ligger så i at møde og slut-tidspunkt kan variere på hele døgnets timer, så man kan også møde om natten og gå hjem om morgenen.

Er dette umuligt ??, jeg har selv prøvet med uhyggelig mange "hvis" formler. (forgæves)

Løsninger i både VBA og alm. formler er yderst velkomne, da jeg snart får "flimmer" af dette irriterende ark.

---

og tegnene genkendes som dato- og klokkeslætsseparatorer, f.eks. skråstreg (/) og bindestreg (-) i datoer og kolon (:) i klokkeslæt på USA-baserede systemer
Exel:
A1 indtastet 01-01-03 07:00
B1 indtastet 01-01-03 07:30
C1 = B1-A1
Marker kolonne C1>formater celler>klokkeslet/type vælg 22:15>ok
Resultat i C1 >00:30<
A2 01-01-03 07:00
B2 02-01-03 07:30
C1 =B2-A2 >formater celler>brugerdefineret>marker [t]:mm:ss>i typeruden slet :ss
Resultat i C2 >24:30< et døgn og 30 min
Der er du vel også kommet til, så nu kommer selve regnestykket, men der er jeg ikke kommet til endnu. Måske skal det være i flere kolonner, så dato og klokkeslet bliver adskilt
Emesen.

---

Fuldstændig korrekt, jeg er kommet til selve regnestykket. Problemet var bare at jeg "formlede" mig ihjel med "hvis'er"

Jeg har en VBA kode i arket der via en event autofuldfører indtastninger i "mødetid" og "Sluttid"
Dvs. skriver jeg : 700
Laver makroen det om til 7:00 så den bliver formateret [t]:mm (iøvrigt en sjov lille ting)
Så datoen behøver vi ikke tage højde for.

VH

Riallica

---

Bare en enkelt kolonne, hvis det er muligt

Riallica

---

navngive felter 18:00 = aften og 08:00 = morgen og faktor1 = lav og faktor2 = høj
=((slut-start)*lav)+"tillæg"(hvis(slut>=aften;((slut-aften)*høj);)
Nu forudsætter jeg at der er statet før 1800 og slutter efter 1800
jeg beregner hele tiden til lav faktor1 og lægger tiden fra 1800 til slut oven i med en høj faktor2 Faktorerne 1 og 2 kan ændres løbende.
"tillæg" bruges ikke i formlen.
Det skulle være den ene halvdel af formlen.
Jeg har ikke prøvet endnu, men det vil jeg gøre, bare ikke i dag.
Emesen.

---

Håber du kan bruge følgende VBA Sub:


Sub Arbejdstid()
Dim colTidspunkt As New Collection
Dim t As Double
Dim mødetid As Double
Dim fyraften As Double
Dim tillægstid As Double
Dim i As Integer
Dim iMødetid As Integer
Dim iFyraften As Integer

Ark1.Rows(1).NumberFormat = "hh:mm"

t = 1 / 3#
colTidspunkt.Add t, "T1"

t = 3 / 4#
colTidspunkt.Add t, "T2"

t = 4 / 3#
colTidspunkt.Add t, "T3"

t = 7 / 4#
colTidspunkt.Add t, "T4"

t = 2#
colTidspunkt.Add t, "T5"

mødetid = Ark1.Cells(1, "A").Value
fyraften = Ark1.Cells(1, "B").Value

If mødetid > fyraften Then fyraften = fyraften + 1

Ark1.Cells(1, "C").Value = fyraften - mødetid

i = 1
Do While mødetid > colTidspunkt.Item(i)
i = i + 1
Loop
iMødetid = i
colTidspunkt.Add mødetid, "mødetid", i

Do While fyraften > colTidspunkt.Item(i)
i = i + 1
Loop
iFyraften = i
colTidspunkt.Add fyraften, "fyraften", i

tillægstid = 0#
For i = iMødetid To iFyraften - 1
If i / 2 - i \ 2 Then
tillægstid = tillægstid + colTidspunkt.Item(i + 1) - colTidspunkt.Item(i)
End If
Next i

Ark1.Cells(1, "D").Value = tillægstid

Set colTidspunkt = Nothing
End Sub

MVH
ELM

---

Kanon elynge

Du har reddet min dag, din kode virker helt fantastisk.... Du har prøvet det før, har du ikke ??
Havde jeg flere point havde du fået hele dynen.

Fantastisk weekend til dig

Mvh
Riallica

---

Tak for svaret elynge, Her er dine point.

(Hold kæft hvor var det fedt)
                        

---

Hej, jeg har søger i flere uger... der er intet på nettet og nu er jeg lykkelig

jeg skal bruge den fantastk formel, men når jeg prøve at indsæt makro
det vise en fejl ** End If Next i** på sidste??
Jeg har ingen forstand, hvad er formel ex. =navn(a1-a2)??
tak for hjælp

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.