Makro mit App.OnTime läuft nicht

Private Function WindowCallBack(ByVal lngHwnd As Long, ByVal lngParam As Long) As Boolean Dim strClassName As String * 256 Dim lngReturn As Long lngReturn = GetClassName(lngHwnd, strClassName, 256) Select Case Left$(strClassName, lngReturn) Case GC_CLASSNAME_EXPLORER MsgBox "Close Windows Explorer" ' Case GC_CLASSNAME_INTERNETEXPLORER ' MsgBox "Internetexplorer schließen" ' Case GC_CLASSNAME_FIREFOX ' MsgBox "Firefox ist geöffnet" End Select WindowCallBack = True End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk,
vielen Dank für Deine Geduld und Deinen Einsatz. Firefox wird nun als offene Anwendung erkannt, den Aufruf Deines Makros per OnTime schaffe ich jedoch nicht. Ich habe ein neues Modul eingefügt, und nur in dieses Modul das folgende Makro eingefügt.
Option Explicit

Sub Count2()
Application.OnTime Now + TimeValue("00:00:03"), "OAp1"
End Sub

OAp1 ist Dein Startmakro dass in einem anderen Modul liegt:

Sub OAp1()
Call EnumWindows(AddressOf WindowCallBack, ByVal 0&)
End Sub

Wenn ich OAP1 über "Worksheet_selectionChange" aufrufe funktioniert es auch. Es wäre nur gut, dass der Anwender Zeit hat den Windows Explorer zu schließen, bevor die Meldung erscheint - deshalb möchte ich das Makro zeitversetzt aufrufen.
Vielleicht hast Du auch hierfür eine Lösung.
Wie kann ich Klassennamen auslesen, für den Fall dass ich Deinen Code nochmals erweitern müsste?
Danke
Albert

Hallo Albert,
der Prozedurname ist immer noch eine Zelladresse. Mit Call wie im Worksheet_SelectionChange-Event kannst du so eine Prozedur aufrufen, aber nicht mit OnTime (auch in einer OnAction-Eigenschaft oder per Run-Methode kannst du eine Prozedur mit dem Namen einer Zelle-Adresse nicht aufrufen).
Die Klassennamen aller sichtbaren Fenster bekommst du so:

Option Explicit

Private Declare Function EnumWindows Lib "user32.dll" ( _
    ByVal lpEnumFunc As Long, _
    ByVal lParam As Long) As Boolean
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" ( _
    ByVal hwnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" ( _
    ByVal hwnd As Long) As Long
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" ( _
    ByVal hwnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const WS_VISIBLE = &H10000000
Private Const WS_BORDER = &H800000

Private llngRow As Long

Public Sub Start()
    llngRow = 1
    Columns("A:C").ClearContents
    With Range("A1:C1")
        .Value = Array("Hwnd", "Klasse", "Caption")
        .Font.Bold = True
    End With
    Call EnumWindows(AddressOf WindowCallBack, ByVal 0&)
    Columns("A:C").AutoFit
    Tabelle1.Sort.SortFields.Clear
    Tabelle1.Sort.SortFields.Add Key:=Columns(2)
    With Tabelle1.Sort
        .SetRange Columns("A:C")
        .Header = xlYes
        .MatchCase = False
        .Apply
    End With
End Sub

Private Function WindowCallBack(ByVal pvlngHwnd As Long, ByVal pvlngParam As Long) As Long
    Dim strCaption As String, strClassName As String
    Dim lngReturn As Long, lngStyle As Long
    lngStyle = GetWindowLong(pvlngHwnd, GWL_STYLE)
    If Cbool(lngStyle And (WS_VISIBLE Or WS_BORDER)) Then
        strClassName = Space$(256)
        lngReturn = GetClassName(pvlngHwnd, strClassName, 256)
        lngReturn = GetWindowTextLength(pvlngHwnd)
        strCaption = Space$(lngReturn)
        Call GetWindowText(pvlngHwnd, strCaption, lngReturn + 1)
        llngRow = llngRow + 1
        Cells(llngRow, 1).Resize(1, 3) = Array(pvlngHwnd, Trim$(strClassName), strCaption)
    End If
    WindowCallBack = 1
End Function

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Makro mit App.OnTime läuft nicht

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro mit App.OnTime läuft nicht

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread