Private Sub tmrMain_Timer()
   tmrMain.Enabled = False
 
   If Zeit = Format(Now, "DD.MM.YYYY HH:MM:SS") And sStart = True Then
      'Aktion auslösen
      Aktion_Start
     Exit Sub
   End If
 
   If DateDiff("s", Format(Now, "DD.MM.YYYY HH:MM:SS"), Zeit) > 60 Then
      tmrMain.Intervall = 60000
    Else
      tmrMain.Intervall = 1000
   End If
 
   tmrMain.Enabled = True
End Sub
 
Public Sub Aktion_Start()
    MsgBox "Start"
End Sub

Text1 = Format$(Now, "DD.MM.YYYY")
  Text2 = Format$(Now, "HH:MM:SS")
  sDatum = Text1.Text
  Ziel = sDatum & " " & Text2.Text
  MsgBox sStart & "   " & Ziel
  Zeit = Ziel

Thanks 4 Help

Das wichtigste ist Ruhe bewaren!

Surftip:
Allroundforum
www.mt-arens.de