Excel wieder in den Vordergrund

Hallo Leute
Ich habe mir ein UF geschrieben, aus dem heraus ich Excel-Dateien öffne, die ich sehr oft benötige.
(so erspare ich mir das Erstellen von Verknüpfungen für jede einzelne Datei)
Userbild

Meine UF-Datei wird gestartet.
Wenn Makros = aktiv, "verschwindet" Excel (wird ausgeblendet) und nur das UF ist sichtbar.
Klicke ich einen der Button an, wird Excel wieder eingeblendet, die angeklickte Datei geöffnet, das UF geschlossen.
Es funktioniert auch eigtl alles bestens.
Nur...
...wenn ich, welche der Dateien auch immer öffne, oder das UF einfach wieder schließe, ist Excel zwar wieder sichtbar, aber nicht aktiv:
Userbild

Wie kann ich erreichen, dass nach Anklicken eines Buttons, nach Wiedereinblenden von Excel, Excel auch wieder das aktive Fenster ist?
Userbild

Ich hab es schon hiermit versucht:
https://www.herber.de/forum/archiv/504to508/t504699.htm
Aber es funktioniert nur, wenn die Zeile
MsgBox "Hallo da bin ich", 64, "Information"
ausgeführt wird.
Lösche ich diese Zeile, bleibt Excel leider inaktiv.
Vielen Dank für eure Antworten.
Ciao
Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
das kann ich nicht nachvollziehen (auch XP)
Damit hat Excel wieder den Focus:

Private Sub UserForm_Activate()
Application.Visible = False
End Sub

Private Sub CommandButton1_Click()
Workbooks.Open "c:\test\test.xls"
Application.Visible = True
Me.Hide
Unload Me
End Sub

Problem ist das Schließkreuz. Das musst du abblocken und nur das Schließen über eine Schaltfläche zulassen.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not CloseMode
End Sub

Private Sub cmdQuit_Click()
Application.Visible = True
Me.Hide
Unload Me
End Sub

Btw: Ich starte meine wichtigsten Dateien über eine eigene Symbolleiste. Finde ich praktischer.
Gruß
Rudi

Option Explicit 'Anwendung Excel aktivieren **************************************** 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 Excel_Activate() Dim HwndExcel As Long HwndExcel = FindWindow("XLMAIN", Application.Caption) SetForegroundWindow HwndExcel End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel wieder in den Vordergrund

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread