Excel minimieren, während Userform offen ist

Hallo Gemeinde,

ich habe in Excel ein etwas aufwändigeres Programm geschrieben, das ich auf der Arbeit verwende.
Grundsätzlich soll es durch die Benutzung von Userforms "idiotensicher" und anwenderfreundlich sein, ohne Excel-Kenntnisse zu benötigen.

Im Hintergrund gibt es 3 Tabelleblätter als Datenbanken. Die Datenbanken werden über Userforms befüllt und editiert. In den Userforms arbeite ich u.A. mit Listboxen, um gefiterte Datensätze darzustellen.

Ich weiß, dass Excel eigentlich nicht das beste ist für solch umfangreiche Anwendungen. Die Rechner auf der Arbeit lassen aber kein Access oder andere Software zu.

Jetzt zu meinem Problem:
Ich möchte, dass zunächst ausschließlich mein Userform zu sehen ist und Excel mit seiner Tabelle im Hintergrund unsichtbar wird.
Aktuell habe ich das über eine Prozedur zum minimieren von Excel gelöst. Excel wird minimiert und dann die Userform geladen. Das erfüllt seinen Zweck. Jedoch wenn ich einmal in die Tasklseiste auf die Excelinstanz klicke, wird die Tabelle hinter der Userform maximiert und lässt sich auch nicht wieder minimieren.

Ich habe schon viel selbst recherchiert, jedoch keine gute Lösung gefunden.

Hat hier jemand noch eine Idee, wie ich das elegant lösen kann? Am besten wäre, wenn Excel mit seiner Tabelle aus der Taskleiste verschwinden würde und die Userform einen eigenen Taskleistendingenskirchens hätte.
Excel aus der Taskleiste ausblenden habe ich auch schon geschafft, aber dann komme ich nie wieder in die Userform, wenn ich außerhalb dieser geklickt habe.

Achso, noch zu erwähnen wäre vielleicht, dass es Arbeitsschritte gibt, wo der User doch die Tabelle im Vordergrund angezeigt bekommen soll. Ich habe hier dann alle Menüs ausgeblendet und arbeite mit commandbuttons im Tabellenblatt. Entsprechend muss das Programm also flexibel sein hinsichtlich aus- und einblenden des Excel-Tabellenblatts.

Ich hoffe, ich konnte mich verständlich ausdrücken.

Danke & Grüße!
DonJuan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also ich habe mich jetzt an Euren Tipps orientiert und bin ein ganzes Stück weiter. Mit dem Code, den Karl-Heinz in seiner letzten Antwort verlinkt hat, habe ich für meine Userforms einen eigenen Taskleisteneintrag erzeugt. Das funktioniert super.

Den Tipp von Udo habe ich auch umgesetzt und lasse Excel nicht mehr minimieren, sondern applicaiton.visible = False.

So weit so gut. Jetzt habe ich nur das Problem, dass mit application.visible = false auch andere Excel-Fenster unsichtbar gemacht werden.
Wenn ich richtig liege, müsste ich also mein Programm in einer separaten Excel-Instanz öffnen lassen.

Wenn ich es manuell erzwinge, läuft dann auch alles so, wie ich es möchte. Aber wie kann ich das automatisch per Code in einer neuen Instanz starten lassen?
Vermutlich muss ich eine weitere "Start-Datei" erstelllen, in der dann der Code ausgeführt wird, um mein PRogramm in einer anderen Instanz zu starten?

Habe das bisher. Läuft aber nicht so wie es soll:

Sub ProgrammStarten()

    Dim appXL As Excel.Application

    Dim Datei As String

    Dim ws As Worksheet



    Set ws = ThisWorkbook.Sheets("Tabelle1")

    Datei = ws.Cells(1, 1).Value



    ' Neue Excel-Instanz starten

    Set appXL = New Excel.Application

    With appXL

        .Visible = True

        .Workbooks.Open Filename:=Datei, ReadOnly:=False 'Dateipfad bzw. Dateiname anpassen!

    End With



    ' Aktuelle Datei speichern und schließen

    ThisWorkbook.Save

    ThisWorkbook.Close False ' Verwende False, um Änderungen nicht zu speichern



    ' Beende die aktuelle Excel-Instanz

    Application.Quit

End Sub

Das Problem ist, dass dieses Start-Programm quasi einfriert, wenn meine andere Instanz geöffnet wird (hier wird sofort eine Userform geladen). Erst wenn ich in meinem eigentlichen Prgramm auf das Tabellenblatt gehe, arbeitet der Code im Start-Programm weiter.

Wie würdet Ihr vorgehen?
Danke Euch!

Code:

Declare PtrSafe Function SetTimer Lib "User32" ( _
        ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, _
        ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
Declare PtrSafe Function KillTimer Lib "User32" ( _
        ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long

Dim mhTimer As LongPtr
Dim moWBk As Object, moApp As Object

Sub MyCallbackProc()
   ' Aktuelle Datei speichern und schließen
    KillTimer 0&, mhTimer
    moWBk.Save
    moWBk.Close False ' Verwende False, um Änderungen nicht zu speichern

    ' Beende die aktuelle Excel-Instanz
    moApp.Quit
End Sub

Sub ProgrammStarten()
    Dim appXL As Excel.Application
    Dim Datei As String
    Dim ws As Worksheet

    Set moWBk = ThisWorkbook
    Set moApp = Application
    Set ws = moWBk.Sheets("Tabelle1")
    Datei = ws.Cells(1, 1).Value

    ' Neue Excel-Instanz starten
    mhTimer = SetTimer(0&, 0&, 100, AddressOf MyCallbackProc)
    Set appXL = New Excel.Application
    With appXL
        .Visible = True
        .Workbooks.Open Filename:=Datei, ReadOnly:=False 'Dateipfad bzw. Dateiname anpassen!
    End With
End Sub

Beliebteste Forumthreads (12 Monate)

Excel minimieren, während Userform offen ist

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel minimieren, während Userform offen ist

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread