Spezialfall: Userform immer im Vordergrund starten

Forumthread: 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

AW: Spezialfall: Userform immer im Vordergrund starten

17.05.2016 17:32:29

Marco

Pervers, dass funktioniert sogar!
Hammer! Danke!

Beliebteste Forumthreads (12 Monate)

Spezialfall: Userform immer im Vordergrund starten

Forumthread: Spezialfall: Userform immer im Vordergrund starten

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Spezialfall: Userform immer im Vordergrund starten

Forumthread: Spezialfall: Userform immer im Vordergrund starten

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread