Option Explicit
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Wann As Double
Public Const Intervall = 1
Public Const Was = "Ausgabe"
Dim Status As Boolean
Sub StartTimer()
Wann = Now + TimeSerial(0, 0, Intervall)
Application.OnTime EarliestTime:=Wann, Procedure:=Was, Schedule:=True
End Sub
Private Sub Ausgabe()
Status = GetActiveWindow() = FindWindow("XLMAIN", Application.Caption)
If Status = True Then
Debug.Print Time, "Excel Application im Vordergrund"
Else
Debug.Print Time, "Excel Application im Systray"
End If
StartTimer
End Sub