Navigation

   ColTime funktionen  brugt i en celle virker, men når jeg forsøger at kalde den fra kan jeg ikke få det til at spille...
funktionen kaldes således i en celle og virker ok

=ColTime(TIME(18;;);TIME(6;;);D2;E2)
Ved VBA kald er følgende afprøvet

=ColTime(TIME(18;;),TIME(6;;),D2,E2)

Men så er det at jeg banker hovedet imod.

Nogen der er skrappe ?
Mvh. Claus Lind

Her er lidt af funktioen

  '=ColTime(Time1;Time2;Startrange;Endrange;GetTotalNumber)
'Startrange er området for møde*tider*.
'Endrange er området for "gå-hjem" *tider*.
'Time1 og Time2 er intervallet, der ønskes undersøgt. Højst 24 timer!
'Time1 og Time2 er cellereferencer til tider (18:15)
'eller funktionen TID(18;15;) indtastet direkte
'GetTotalNumber er valgfri (1 or 0 (standard)). Hvis den
'sættes til 1(én). returnerer funktionen det antal gange
'det søgte interval findes.

'Fra regnearket:
' =ColTime($F$2;$G$2;A2;C2)
'hvor fx F2=22:00 og G2=7:00
' =ColTime(TID(22;;);TID(7;;);A2;C2)
'Træk cellen ned med fyld-håndtaget

'Eller akkumuleret:
' =ColTime(F2;G2;A2:A100;C2:C100)
'hvor fx F2=22:00 og G2=7:00
' =ColTime(TID(22;;);TID(7;;);A2:A100;C2:C100)
'I denne situation er det ikke tilladt at have
'tomme celler omgivet af celler med indhold
'i A2:A100 og C2:C100
'

Public Function ColTime(Time1 As Double, _
Time2 As Double, StartRange As Object, _
Endrange As Object, _
Optional GetTotalNumber As Boolean) As Double
'leo heuser,May 1999/January 2002
Dim Cel As Object
Dim Dummy As Double
Dim EndTime As Double
Dim OffsetColumn As Long
Dim OffsetRow As Long
Dim StartTime As Double
Dim SubTime As Double
Dim TotalNumber As Long

Navigation

ColTime kaldt fra VBA