Office: Excel mittels Userform schließen

Hallo miteinander,

leider habe ich nirgends das Richtige gefunden. Gibt es die Möglichkeit Excel über das Kreuz des Userforms zu schließen? Ich habe nämlich das Problem, dass ich Excel mit Start des Userforms verstecke, aber beim schließen des Forms Excel offen bleibt. Das möchte ich nun ändern

Siehe: http://www.ms-office-forum.net/forum...d.php?t=331224

Vielleicht klappts ja.

Danke
Christian

:)

 

Hallo!
Folgendes schließt die Anwendung, ohne die geöffneten Mappen zu speichern.
In den Code der Userform:
Code:

Soll zusätzlich gespeichert werden?

Gruß Ralf

 

Hallo Ralf,

danke, nein es soll nicht gespeichert werden. Ist nur ein Userform mit haufenweisen Links darauf.
Ist es eigentlich auch möglich, auf so einem Userform auch noch das "-" neben dem "x" zu positionieren, damit es "klein" gemacht werden kann?

Gruß
Christian

 

Hi Christian!
Ja, mittels API-Funktionen:
http://www.vb-fun.de/cgi-bin/loadfra.../tip0164.shtml

Achtung: Das Klassenmodul clsUserForm ist tatsächlich ein solches!
(Einfügen, Klassenmodul, in clsUserForm umbenennen)

Gruß Ralf

 

So, habe das jetzt mal getestet.
Die Private Sub UserForm_Resize() habe ich rausgenommen, dann lief es ohne Probleme.

Gruß Ralf

 

Hmm, bei mir funktioniert mal grundsätzlich gar nichts.
Folgende Fehlermeldung

Der Code in diesem Projekt muss für die Verwendung auf 64-Bit-Systemen aktualisiert werden. Überarbeiten Sie Declare-Anweisungen, und markieren Sie sie mit dem Ptr-Safe-Attribut

So jetzt bin ich komplett aus der Materie ausgestiegen. Was will denn Excel nun von mir?

Die ersten -8- Private Declare Funktionen sind rot markiert in VBA. Hmmmm

 

Nix hmmmm *cool.gif*
Du verwendest die 64-Bit-Version von Excel (warum eigentlich, selbst Microsoft rät vom Gebrauch ab, wenn nicht ganz konkrete voraussetzungen vorliegen, z.B. Dateien im GB-Bereich).
Heißt Du musst vor jede Function ein PtrSafe setzen.

Statt Private Declare Function FindWindow Lib "user32" Alias _
also Private Declare PtrSafe Function FindWindow Lib "user32" Alias _

Gruß Ralf

 

Danke, danke. Jetzt funktionierts super. Da werde ich mich dann morgen mal in der Arbeit damit "spielen".

Warum ich 64Bit habe weiß ich auch nicht. Naja, läuft ja auch ;-)

Danke Ralf

 

Hallo Ralf,

einmal hätte ich noch eine Frage. Ich möchte mit dem Code

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

with Application
.DisplayAlerts = False
.Quit
End With
'End Sub

Excel mittels dem Schließkreuz mit schliesen. Leider arbeiten die beiden Codes (minimieren,maximieren) und dieser nicht zusammen. Ich bekomme immer einen Laufzeitfehler 424 (Objekt erforderlich). Ich habe den Code im Userform. Hast du da evtl. auch noch ein Lösung? *eek.gif* *eek.gif* *eek.gif*

Christian

 

Hat sich erledigt. Hab zwei Fehler nach etlichen Versuchen gefunden und behoben. Jetzt funktionierts wirklich ;-)

 

EDIT:
Hat sich ja erledigt …

Moin Christian!
Kann ich nicht nachvollziehen.
In meinem Test gibt es keine Probleme.
Lade doch mal Deine Datei hoch.
Was mir auffällt:
Du hast ein Hochkomma vor End Sub.

Gruß Ralf

 

Ja, passt alles. Danke nochmal!! *Smilie *Smilie

 

Hi Ralf,

ich hatte dich ja hier gefragt, wie man Excel über das Userform schließen kannst. Du hattest gefragt, ob mit speichern oder ohne, und hast mir den Code

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
With Application
.DisplayAlerts = False
.Quit
End With
End Sub

ohne speichern geschickt. Jetzt bräuchte ich doch eine Speicherfunktion, weil ja jede Mappe geschlossen wird, und das ist manchmal saublöd.

Geht das irgendwie?

Danke schon Mal.

Christian

 

Moin Christian!
Dann so (alle bereits gespeicherten Dateien werden ungefragt gespeichert, bei neuen Dateien erfolgt Nachfrage):
Code:

Gruß Ralf

 

Dankeschön!!!!