Time beregning med "validering"

Hvordan har du arrangeret informationerne i regnearket ?

Jamen jeg har dem opstillet i rækker. F.eks. hvis en er på arbejde fra 9.00 - 16.00 står der 9.00 i et felt og 16.00 i et andet felt. Svar nok??

Kigger forbi i morgen.

Jeg smider 90 point oven i til den der løse problemet

Public Function IkkeBesat(DagOmråde As Range, StartTidOmråde As Range, SlutTidOmråde As Range) As String
    Dim Tid() As Variant, I As Date, N As Date, X As Long
    X = 0
 
    For I = #9:00:00 AM# To #9:00:00 PM# Step #1:00:00 AM#
        ReDim Preserve Tid(X)
        Tid(X) = I
        X = X + 1
    Next I

    For Each C In Range(DagOmråde.Address)
        RW = C.Row
        F = Cells(RW, StartTidOmråde.Column)
        T = Cells(RW, SlutTidOmråde.Column)
        For N = F To T Step #1:00:00 AM#
            For X = 0 To UBound(Tid)
                If N = Tid(X) Then
                    Tid(X) = Empty
                    Exit For
                End If
            Next X
        Next N
    Next C
   
    For X = 0 To UBound(Tid)
        If Not IsEmpty(Tid(X)) Then
            IkkeBesat = IkkeBesat & Format(Tid(X), "hh:nn") & "-"
        End If
    Next
    IkkeBesat = Left(IkkeBesat, Len(IkkeBesat) - 1)
End Function

der er et testark her http://www.kabbak.dk/eksperten/timeberegning.xls

Er ikke helt med, skal jeg smide den funktion du har der ind i arket, eller??? For kan ikke helt se hvordan?? Og hvis det er hvordan gør jeg så det?? Men ellers er det det rigtige du har fat i..

Så lige at jeg har en engelsk version.. Hmm

Funktionen skal ind i et Modul, ikke et arkmodul.

Funktionen er ligeglad med om det er engelsk version, bare dume tidsindtastninget er i klokkeslet format

dume = dine

Et modul hvordan laver jeg det så?? Jeg smider 50 point hvis du også kan forklarer mig det..

tryk ALT + F11

Vælg Insert > Module

kopier koden derind

luk på det øverste højre X

nu er du tilbage i arket

funktionen kaldes med

=IkkeBesat(B2:B8;C2:C8;D2:D8)

B2:B8 er området hvor der står Mandag i mit eksempel
C2:C8 er området hvor Starttidspunkt står i mit eksempel
D2:D8 er området hvor Sluttidspunkt står i mit eksempel

alle 3 skal starte og slutte i samme rækker

Der står bare NAME i cellen??

du har nok sat den ind et forkert sted

Tryk ALT + F11

klik på den der hedder module1 ovre i venstre side, nu skal koden ses på det hvide til højre, hvis den ikke er der , så flyt den dertil

hvis du højreklikker, på en arkfane i min demo, og så vælg: Vis programkode( det hedder det på dansk), så kan du se hvor den ligger.

Du er en meget klog dreng min ven, det virker nu. Smid et svar. Men lige noget andet, hvordan viste du hvad du skulle skrive i modulet, har du brugt noget hjælp af en art, den sætter vel selv noget ind, det er bare til en anden gang så jeg selv kunne se lidt på det.. Ellers mange mange tak..200 Point til dig.

Man skriver hvad man vil have den til at gøre, men det kræver jo at man ved hvad den forstår.

Så man skal altså kunne læse en kode og vide hvad der skal ind, for at få det, dman vil have ud.

Det hele er skrevet manuelt, der er ingen automatik til funktioner.

;-))

Okay tak for svaret her er dine point, de er velfortjent, er de programmør eller noget...

Og forresten velkommen på eksperten

> (er de programmør eller noget)

Nææ, det er en hobby, som jeg har haft længe siden starten af firserne, så der er jo noget som hænger ved gennem tiden.

Jeg bruger programmering for at gøre arbejdet lettere for mig selv, hvorfor døje, hvis computeren kan lave det selv. ;-))

Lyder spændende, men vil se lidt på det du har givet mig. Tusind tak, men kan jo godt være jeg falder over dig på et andet tidspunkt..