Wie kann ich denn Excel minimieren (also in die Taskleiste hängen) und das Userform als aktives Fenster in den Fordergrund (also als aktive Anwendung von Windows) stellen ???
Danke für Eure Hilfe!
Liebe Grüße
Markus
Wie kann ich denn Excel minimieren (also in die Taskleiste hängen) und das Userform als aktives Fenster in den Fordergrund (also als aktive Anwendung von Windows) stellen ???
Danke für Eure Hilfe!
Liebe Grüße
Markus
folgender Text:
https://www.herber.de/mailing/092800h.htm
hans
Private Sub UserForm_Initialize()
Application.WindowState = xlMinimized
TextBox1.SetFocus
End Sub
Private Sub UserForm_Terminate()
Application.WindowState = xlNormal
End Sub
so gehts auch:
in dieseArbeitsmappe kopieren:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Sub Workbook_Open()
Application.WindowState = xlMinimized
Load UserForm1
Call Form_Load
UserForm1.Show
End Sub
Private Sub Form_Load()
Dim lHandle As Long
lHandle = FindWindow("Thunderxframe", "Eingabe") 'vbNullString
lHandle = SetForegroundWindow(lHandle)
End Sub
gruss
jens