Thema Datum  Von Nutzer Rating
Antwort
08.04.2016 17:32:10 Manfred Gast
NotSolved
09.04.2016 18:06:12 Gast32321
NotSolved
12.04.2016 17:28:54 Gast59387
NotSolved
Blau Ereignis Taskleiste
 12.04.2016 19:06:53 Gast70117
NotSolved
12.04.2016 22:01:57 Gast77619
NotSolved
13.04.2016 00:08:22 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
12.04.2016 19:06:53		 Views:
801		 Rating:
     
Antwort:
  Ja
Thema:
Ereignis Taskleiste

Du benötigst eine Arbeitsmappe - zum Bleistift TaskbarEvent.xlsm

Darin ein Modul mit folgendem Code

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)

'Über Status die weiteren Aktionen
If Status = True Then
   Debug.Print Time, "Excel Application im Vordergrund"
Else
   Debug.Print Time, "Excel Application im Systray"
End If

'Neustart
StartTimer
End Sub

Von mir aus kannste die Sub StartTimer auch über das Workbook-Open-Event gleich anleiern ;)

Die Sub Ausgabe() ist quasi eine Schleife und läuft so lange als die Excel-Application aktiv!

Und:

Was ist ein Notebook-Deckelklappern anders als ein Ruhezustand?

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.04.2016 17:32:10 Manfred Gast
NotSolved
09.04.2016 18:06:12 Gast32321
NotSolved
12.04.2016 17:28:54 Gast59387
NotSolved
Blau Ereignis Taskleiste
 12.04.2016 19:06:53 Gast70117
NotSolved
12.04.2016 22:01:57 Gast77619
NotSolved
13.04.2016 00:08:22 Gast70117
NotSolved