Neues Thema erstellen

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
     
    #2 St3fan, 24. April 2020
  4. Nepumuk
    Nepumuk Windows User
    Registriert seit:
    7. Dezember 2017
    Beiträge:
    679
    Zustimmungen:
    61
    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
     
    #3 Nepumuk, 25. April 2020
Auf dieses Thema antworten
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

Excel: excel zahlenwert einer zelle in einer anderen zelle als text darstellen Weiterlesen...

 Windows 10 Support 21. Juli 2023

Excel

Excel: Hallo zusammen Da ich und Excel keine guten Freunde sind benötige ich eure Hilfe. Ich habe eine Vorlagetyp Mitarbeiter-Abwesenheitsplan von Excel zur Weiterbearbeitung ausgwählt und nun stecke ich fest. Bei der Tabellenauflistung unten, kann man die Monate sehen zusätzlich noch eine Tabelle mit...

 Windows 10 Support 4. Mai 2021

Excel

Excel: Hallo, ich habe letztens ein Funktionsupdate für Windows 10, Version 2004 durchgeführt. Nun wollte ich mit Excel arbeiten, dort bekomme ich nun folgende Meldung:Microsoft Office kann die Lizenz für dieses Produkt nicht überprüfen. Reparieren Sie das Office-Programmüber die Systemsteuerung. In...

 Windows 10 Support 26. Juni 2020

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]

  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Accept Weitere Informationen
    Information ausblenden