Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

makro bei fensterschliessen starten

Forumthread: makro bei fensterschliessen starten

makro bei fensterschliessen starten
03.06.2006 13:06:11
Emil
Hallo,
gibt es die Möglichkeit ein Makro zu starten, wenn das Fenster
"Seite einrichten" verlassen wird?
Gruß Emil
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nein, kein passendes Ereignis vorhanden. o.w.t.
03.06.2006 14:27:48
Peter W
MfG Peter
AW: makro bei fensterschliessen starten
03.06.2006 15:18:57
K.Rola
Hallo,
geht schon, aber wie wird es verlassen, Abbrechen, Ok? Sollen ggf. für
beide Möglichkeiten unterschiedliche Makros ablaufen?
Gruß K.Rola
AW: makro bei fensterschliessen starten
03.06.2006 21:42:43
Emil
Hallo K.Rola,
es soll ein bestimmtes Makro starten, egal wie es verlassen wird.
Gruß Emil
Anzeige
AW: makro bei fensterschliessen starten
03.06.2006 22:03:56
K.Rola
Hallo,

Sub versiv()
If Application.Dialogs(7).Show = 0 Then
Call test
Else
Call test
End If
End Sub

Wobei statt test der Name deines Makros stehen sollte.
Gruß K.Rola
AW: makro bei fensterschliessen starten
04.06.2006 01:47:02
Emil
Hallo K. Rola,
vielen Dank für deine Antwort. Wo soll dieses sub hin.
Ich habe es in ein Modul gepackt und passiert nichts.
Gruß Emil
Anzeige
das ist das was ich meinte....
04.06.2006 02:06:05
Peter W
Servus K.Rola und Emil,
...da es kein Ereignis gibt das ausgelöst wird, musst das Makro manuel starten oder mit Timer.
Oder gibts da auch ne Lösung ?

"Man muß Gott für alles danken, sogar für Ober- ,Mittel- und Unterfranken"


Anzeige
AW: makro bei fensterschliessen starten
04.06.2006 13:38:08
K.Rola
Hallo,
In das Modul von "DieseArbeitsmappe:
Option Explicit
Private Sub Workbook_Activate()
Call eigenes_Makro
End Sub
Private Sub Workbook_Deactivate()
Call Zuruecksetzen
End Sub
In ein Standardmodul:
Option Explicit
Dim cb As CommandBar, cbb As CommandBarButton
Sub versiv()
If Application.Dialogs(7).Show = 0 Then
Call test
Else
Call test
End If
End Sub
Sub eigenes_Makro()
For Each cb In CommandBars
Set cbb = cb.FindControl(ID:=247, Recursive:=True)
If Not cbb Is Nothing Then cbb.OnAction = "versiv"
Next
End Sub
Sub Zuruecksetzen()
For Each cb In CommandBars
Set cbb = cb.FindControl(ID:=247, Recursive:=True)
If Not cbb Is Nothing Then cbb.OnAction = ""
Next
End Sub
Sub test()
MsgBox "Aha!"
End Sub

Gruß K.Rola

Es gibt keine Sünde außer der Dummheit.

Oscar Wilde


Anzeige
Danke, das wäre mir in 100 J. n. eingefallen o.t.
04.06.2006 14:27:11
Peter W

"Man muß Gott für alles danken, sogar für Ober- ,Mittel- und Unterfranken"


AW: makro bei fensterschliessen starten
05.06.2006 01:16:55
Emil
Hallo K.Rola,
vielen Dank für deine Antwort. Ich werde das morgen mal ausprobieren.
Gruß Emil
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18