Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Beim Minimieren der Userform Code ausführen

Beim Minimieren der Userform Code ausführen
07.12.2015 15:35:59
muehli
Hallo zusammen,
ich habe eine Frage zum Minimieren einer Userform.
Den Minimierbutton etc. habe ich soweit hinbekommen.
Wie kann ich nun einen Code ausführen, sobald dieser Button betätigt wird (also die Userform minimiert wird)
Bsp.
If "minimierbutton_click" then
Range("A1").Value = "Test"
End if
oder
If Userform1.visible = false then
Range("A1").Value = "Test"
End if
Freundliche Grüße und danke
Muehli

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim Minimieren der Userform Code ausführen
08.12.2015 10:37:49
muehli
Vielen Dank!

AW: Beim Minimieren der Userform Code ausführen
08.12.2015 14:25:58
muehli
Also,
habe versucht mich in das Ganze einzulesen.
Leider muss ich feststellen, dass ich doch nicht so viel verstehe.
Hier mal mein Code:
Private Declare Function FindWindow _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow _
Lib "user32" _
(ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function DrawMenuBar _
Lib "user32" _
(ByVal nWnd As Long) As Long
Private Declare Function SetFocus _
Lib "user32" _
(ByVal hWnd As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_EX_APPWINDOW As Long = &H40000
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5
Dim objMinMaxUF As Object
Public Property Set formular(objUF As Object)
Dim lngUFHandle As Long
Dim lngFensterStil As Long
Set objMinMaxUF = objUF
lngUFHandle = FindWindow(vbNullString, objMinMaxUF.Caption)
lngFensterStil = GetWindowLong(lngUFHandle, GWL_STYLE)
lngFensterStil = lngFensterStil Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong lngUFHandle, GWL_STYLE, lngFensterStil
lngFensterStil = GetWindowLong(lngUFHandle, GWL_EXSTYLE)
lngFensterStil = lngFensterStil Or WS_EX_APPWINDOW
SetWindowLong lngUFHandle, GWL_EXSTYLE, lngFensterStil
ShowWindow lngUFHandle, SW_HIDE
DrawMenuBar lngUFHandle
ShowWindow lngUFHandle, SW_SHOW
SetFocus lngUFHandle
End Property
Ich hätte gerne, dass

Application.visible = true
ausgeführt wird wenn ich die Userform minimiere.
Kann man das realisieren?
Gruß und danke
Muehli

Anzeige
AW: Beim Minimieren der Userform Code ausführen
08.12.2015 15:27:19
Nepumuk
Hallo,
du brauchst doch nur den Code im Modul2 sowie im Userform diese 3 Routinen:
Private Sub UserForm_Activate()
    Call SysMenuHook(Me)
End Sub

Private Sub UserForm_Deactivate()
    Call SysMenuUnHook
End Sub

Private Sub UserForm_Terminate()
    Call SysMenuUnHook
End Sub

Gruß
Nepumuk
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige