Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1492to1496
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
Inhaltsverzeichnis

Spezialfall: Userform immer im Vordergrund starten

Spezialfall: Userform immer im Vordergrund starten
17.05.2016 15:00:22
Marco
Hallo Leute!
Ich habe mir für eine Dateneingabe ein Userform gestrickt, welches jede Stunde gestartet wird. Man gibt dan Werte ein, das Userform schließt sich und wird nach einer Stunde wieder abgerufen. Soweit so gut aber..
Das Userform erscheint nur, wenn man Excel aktiv hat. Ist man aber gerade im Firefox, ist das Userform zwar offen, aber im Hintergrund. :(
Gibt es irgendeinen Weg, dass er mir das Userform immer im Vordergrund aufmacht?
Ich denke mal nein, aber Fragen kann nicht schaden.
Danke Grüße
Marc

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

Betreff
Datum
Anwender
Anzeige
AW: Spezialfall: Userform immer im Vordergrund starten
17.05.2016 15:08:54
Marco
Das Userform soll sozusagen immer im Vordergrund aufpoppen. Ich bräuchte irgendetwas, wo zum Beispiel kurz vor dem Aufruf Excel aktiv geschlaten wird. Weil offen ist das File ja permanent.

AW: Spezialfall: Userform immer im Vordergrund starten
17.05.2016 16:40:55
Nepumuk
Hallo,
folgender Code bringt Excel in den Vordergrund:
Option Explicit

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Sub SetWindowPos Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long)

Private Const HWND_TOPMOST As Long = -1
Private Const HWND_NOTOPMOST As Long = -2
Private Const SWP_NOSIZE As Long = &H1
Private Const SWP_NOMOVE As Long = &H2

Public Sub Start()
    Call SetWindowPos(Application.hWnd, HWND_TOPMOST, _
        0&, 0&, 0&, 0&, SWP_NOMOVE Or SWP_NOSIZE)
    Call SetWindowPos(Application.hWnd, HWND_NOTOPMOST, _
        0&, 0&, 0&, 0&, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

Gruß
Nepumuk

Anzeige
AW: Spezialfall: Userform immer im Vordergrund starten
17.05.2016 17:32:29
Marco
Pervers, dass funktioniert sogar!
Hammer! Danke!

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige