Excel-Makro, wenn Excel den Focus bekommt.?

Helfe beim Thema Excel-Makro, wenn Excel den Focus bekommt.? in Windows 10 Support um eine Lösung zu finden; Ich möchte also, dass das Makro sofort startet, wenn ich von einer anderen Anwendung mit <alt>+<tab> zu Excel wechsle.... Dieses Thema im Forum "Windows 10 Support" wurde erstellt von Dreieck002, 24. April 2020.

  1. Dreieck002
    Dreieck002 Gast

    Excel-Makro, wenn Excel den Focus bekommt.?


    Ich möchte also, dass das Makro sofort startet, wenn ich von einer anderen Anwendung mit <alt>+<tab> zu Excel wechsle.

    :)
     
    #1 Dreieck002, 24. April 2020
  2. Hobi Expert
    Willkommen,

    Versuche folgende Schritte abzuarbeiten:
  3. St3fan
    St3fan Neu hier
    Registriert seit:
    24. April 2020
    Beiträge:
    12
    Zustimmungen:
    0

    Hallo,

    über den Event-Handler (vermutlich Application-Objekt). Ist aber bei mir einfach zu lange her. Das solltest du in spezifischen Foren suchen.

    VG Stefan
     
  4. Nepumuk
    Nepumuk Actives Mitglied
    Registriert seit:
    7. Dezember 2017
    Beiträge:
    32
    Zustimmungen:
    3
    Hallo,

    in ein Standardmodul:

    Option Explicit
    Option Private Module
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal nIDEvent As LongPtr, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As LongPtr) As LongPtr
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal nIDEvent As LongPtr) As Long
    Private Declare PtrSafe Function GetParent Lib "user32.dll" ( _
    ByVal hwnd As LongPtr) As LongPtr
    Private Declare PtrSafe Function GetForegroundWindow Lib "user32.dll" () As LongPtr
    Public gblnActiv As Boolean
    Public Sub StartTimer()
    Call SetTimer(Application.hwnd, 0, 100&, AddressOf TimerProc)
    End Sub
    Public Sub StopTimer()
    Call KillTimer(Application.hwnd, 0)
    End Sub
    Private Sub TimerProc(ByVal pvlngptrHwnd As LongPtr, ByVal pvlngptrEventID As LongPtr, _
    ByVal pvlngElapse As Long, ByVal pvlngptrTimerFunction As LongPtr)
    Dim lngptrForegroundHwnd As LongPtr

    lngptrForegroundHwnd = GetForegroundWindow

    If lngptrForegroundHwnd = pvlngptrHwnd Or _
    GetParent(lngptrForegroundHwnd) = pvlngptrHwnd Then
    If Not gblnActiv Then
    gblnActiv = True
    Call Hallo
    End If
    Else
    gblnActiv = False
    End If
    End Sub
    Public Sub Hallo()
    Call MsgBox("Hallo", vbInformation, "Info")
    End Sub
     
Thema:

Excel-Makro, wenn Excel den Focus bekommt.?

Die Seite wird geladen...

Excel-Makro, wenn Excel den Focus bekommt.? - Ähnliche Themen - Excel Makro Excel

Forum Datum

Excel solver

Excel solver: Hallo zusammen, ich wollte soeben den Solver unter Excel 2010 aktivieren und musste ihn dazu zunächst installieren, was ich auch getan habe, indem ich den Anweisungen gefolgt bin. Ich habe nun aber das Problem, dass der Solver anscheinend nicht funktioniert. Im Abschnitt Daten wird mir der...

Windows 10 Support 26. Oktober 2018

Excel Fehler

Excel Fehler: Hallo an alle, seit einiger Zeit wechselt mein Excel und auch Word immer wieder auf Englisch. Nach ca. 1 Woche erscheint Excel wieder auf Deutsch, und nach einiger Zeit wieder auf Englisch obwohl alle Einstellungen auf Deutsch gestellt sind. Was kann ich tun? LG Weiterlesen...

Windows 10 Support 30. September 2018

Excel Arbeitsmappen

Excel Arbeitsmappen: Hallo, Excel Tabellen die ich mit meinem PC in die Cloud stelle kann ich mit meinem Windows Phone 10 nicht öffnen. Auf meinem Windows Phone erscheit.....Diese Version von Microsoft Excel kann keine Arbeitsmappen mit folgenden Features öffnen. ° WEBABFRAGEN Kann mir jemand helfen. Danke...

Windows 10 Mobile 15. Juni 2016

Excel 2016 erscheint nicht als Standardapp?

Excel 2016 erscheint nicht als Standardapp?: Hallo, nach einer Online-Installation von Microsoft Office 2016 Professional konnte ich alle Anwendungen (word, outlook, powerpoint etc) als Standardprogramme festlegen. Nur Excel erscheint nicht in der Auswahl der Programme und auch eine Zuordnung über die Dateiformate klappt nicht...

Windows 10 Fehler und Bluescreens 12. Mai 2016

excel datei

excel datei: Hallo zusammen wieso kann ich am Handy keine zellen mehr in die bestehende datei einfügen? Wenn ich auf zelle formatiern klicke, kann man nur mehr die fettschrift u kursiv ändern und tabellen einfügen und die schriftfarbe ändern. Das wars. Wie kann man also die zeile einfügen? Hat jemand eine...

Windows 10 Mobile 28. März 2016

Word und Excel

Word und Excel: Hallo, ich habe mir ein NAS zugelegt und möchte gerne meine Dokumente über mein Android Tablet bearbeiten können. Aber die Dokumente sind alle Schreibgeschützt, wenn ich sie mit der Android App von Word oder Excel bearbeiten möchte. Kann mir einer weiterhelfen? Grüße Weiterlesen...

Windows 10 Support 13. Februar 2016

Excel-Giternetzlinien

Excel-Giternetzlinien: hallo, ich habe eine Exceldatei erstellt mit Gitternetzlinien. In der Vorschau kann ich die Linien sehen, aber wenn ich auf drucken gehe, werden die Linien nicht gedruckt. Ich habe schon beim Support des Druckers angerufen.Da sagte man mir ich müsste die Datei als PDF abspeichern,#dann würde...

Windows 10 Mobile 29. Januar 2016

Word und Excel

Word und Excel: Ich habe einen neuen PC gekauft und möchte nun die Windowsprogramme Excel und Word, welche ich mit meinem alten (5-jährigen) PC legal erworben habe Wie gehe ich vor?auf den neuen PC herunterladen. Besten Dank im Voraus für Ihre geschätzte Hilfe. Gruss aus Tagelswangen Weiterlesen...

Windows 10 Support 21. November 2015

Excel-Makro, wenn Excel den Focus bekommt.? [gelöst]