Nedtælling til specifik tidspunkt (dynamisk)

Option Explicit

Private msCellAddress As String
Private mdtEndTime As Date

Public Property Get CellAddress() As String
  CellAddress = msCellAddress
End Property

Public Property Let CellAddress(ByVal sCellAddress As String)
  msCellAddress = sCellAddress
End Property

Public Property Get EndTime() As Date
  EndTime = mdtEndTime
End Property

Public Property Let EndTime(ByVal dtEndTime As Date)
  mdtEndTime = dtEndTime
End Property

Option Explicit

Private mdNextTime As Double
Private mcolTimers As Collection

Public Function CountDown(EndTime As Date) As Variant
  Dim cTimer As clsTimer
  Dim sCellAddress As String
  sCellAddress = Application.Caller.Address(external:=True)
  Application.Volatile
  If TypeName(Application.Caller) <> "Range" Then
  Else
      If IsIn(mcolTimers, sCellAddress) Then
          Set cTimer = mcolTimers(sCellAddress)
          mcolTimers.Remove sCellAddress
      Else
          Set cTimer = New clsTimer
          With cTimer
              .CellAddress = sCellAddress
              .EndTime = EndTime
          End With
      End If
  End If
  With cTimer
      .CellAddress = sCellAddress
      .EndTime = EndTime
      If .EndTime - (Now - Int(Now)) > 0 Then
          CountDown = .EndTime - (Now - Int(Now))
      Else
          CountDown = 0
      End If
  End With
          If mcolTimers Is Nothing Then
              Set mcolTimers = New Collection
          End If
          mcolTimers.Add cTimer, sCellAddress
  Set cTimer = Nothing
End Function

Private Function IsIn(colCollection As Collection, sName As String)
  Dim cTimer As clsTimer
  On Error Resume Next
  Set cTimer = mcolTimers(sName)
  IsIn = (Err.Number = 0)
  Set cTimer = Nothing
End Function

Public Sub Auto_Open()
  Application.OnTime Now, "UpdateTimers"
End Sub

Public Sub Auto_Close()
  StopTimers
End Sub

Sub UpdateTimers()
  mdNextTime = Now + TimeValue("00:00:01")
  Application.OnTime mdNextTime, "UpdateTimers"
  Application.Calculate
End Sub

Sub StopTimers()
  Application.OnTime mdNextTime, "UpdateTimers", , False
End Sub

Rette fejlen #NAVN?
Gælder for: Microsoft Office Excel 2003

Opstår, når der i Microsoft Excel ikke genkendes tekst i en formel.

1.Klik på den celle, der indeholder fejlen, klik på den knap, der vises , og klik derefter på Spor fejl, hvis det vises.
2.Gennemse de mulige årsager og løsninger.
Mulige årsager og løsninger
Der er benyttet en funktion, som er en del af tilføjelsesprogrammet Analysis ToolPack uden at tilføjelsesprogrammet er læst ind