Bei Klick UserForm Minimieren
21.09.2006 08:04:57
Heinz
Habe am 15.Sept.schon mal diese Frage gestellt.
Habe unteren Code von Rainer erhalten.
Funkt. bei mir leider nicht.
Er sollte wenn UserForm1 aufgerufen wurde und ich auf irgend eine Zelle klicke das sich die Userform automatisch minimiert.
Meine Userform hat einen Min & Max Button.
Könnte mir Bitte jemand weiterhelfen ?
Danke Heinz
*****Meldung vom 15. September *****
Hi Heinz,
nicht perfekt aber funktioniert, entsprechende Call-Aufrufe in Worksheet_Activate der Tabellenblätter.
Mir fällt grad ein mit Visible müßte es auch gehen.
Option Explicit
Dim t, h, l, w
Sub tt()
UserForm1.Show 0
End Sub
Sub klein()
t = UserForm1.Top
l = UserForm1.Left
h = UserForm1.Height
w = UserForm1.Width
UserForm1.Top = 0
UserForm1.Left = 0
UserForm1.Height = 0
UserForm1.Width = 0
End Sub
Sub gross()
UserForm1.Top = t
UserForm1.Left = l
UserForm1.Height = h
UserForm1.Width = w
End Sub