Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

"ActiveApllication"

"ActiveApllication"
30.07.2007 17:14:00
Norbert
Hallo Zusammen,
eine Frage noch:
Wie kann ich feststellen, ob gerade Excel oder Outlook aktiv ist?
Viele Grüße
Norbert

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: "ActiveApllication"
30.07.2007 17:27:00
sergiesam
hi,
du könntest mit API-Funktionen das Fenster im Vordergrund ermitteln:
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long

Private Sub ZeigeAktivesFenster()
Static lHwnd As Long
Dim lCurHwnd As Long
Dim sText As String * 255
lCurHwnd = GetForegroundWindow
lHwnd = lCurHwnd
Debug.Print "ActiveWidow: " & Left$(sText, GetWindowText(lHwnd, ByVal sText, 255))
End Sub


Anzeige
AW: "ActiveApllication"
30.07.2007 18:21:00
Norbert
Du wirst in meinem Makro verewigt *g*

gern geschehen :-) o.t.
30.07.2007 18:27:19
sergiesam
Sam

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige