|
Hallo zusammen
Ich bin kein VBA-Profi, und bastle mir gerne kleine VBA Progeamme nach langen Recherschen zusammen.
Also habt nachsicht bei dummen Rückfragen (Unwissenheit läst Grüßen).
Mein Makro Startet die Ereignisanzeige von Win10.
Mein Problem ist die übergabe der TAP-Taste, dh bei geöffneter Ereignisanzeige soll die Tabulator-Taste per Code übermittelt werden so das die erst Zeile im Ereignis Fenster (rechts) Blau markiert wird (sh. Bild unten).
Was ist falsch oder fehlt, Bitte um Hilfe.
--------------------------------------------------------------------
Sub Ereignisanzeigex1()
'
Dim AppId, ReturnValue
AppId = "C:\WINDOWS\system32\eventvwr.msc" ' Pfad bei Win10 (kann auch als eventvwr.exe Datei gestartet werden)
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run AppId, True, Wait ' Startet die Ereignisanzeige
bytWindowStyle = 3
Application.Wait (Now + TimeValue("0:00:10"))
AppActivate ("Ereignisanzeige")
SendKeys String:=Chr$(9), Wait:=True ' Sendet das Drücken der TAB-Taste
Beep ' Beep damit ich weis das das Makro abgearbeitet wurde.
Exit Sub
__________________________________________
Vielen Dank im voraus
Harald
|