Über UserForm Excel min/max

[michel34497]

Hallo Leute!

Beim Start von meien Projekt wird Excel minimiert und die UF erscheint.
Das funktioniert auch so wie das möchte
Der Code dafür steht in DieseArbeitsmappe und lautet

Code:

Private Sub Workbook_Open()

Application.WindowState = xlMinimized
'AppActivate Application.Caption
  Start.Show
End Sub

Ich möchte jetzt über einen ToggleButton1 Excel wieder sichtbar machen.
Das man in den Tabellenblättern arbeiten kann.

Code:

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Application.WindowState = xlNormal
   Else
Application.WindowState = xlMinimized
End If
End Sub

Dies geht mit diesen Code leider nicht!

Was ist daran FALSCH?

[RPP63]

Moin!
Hast Du die .ShowModal-Eigenschaft des UserForm auf False gestellt?

Gruß Ralf

[RPP63]

Ergänzend würde ich eher das ToggleButton1_Change() nehmen.

[michel34497]

Hallo!

zu 1 Nein und was bewirkt das
zu 2 Warum Change?

[michel34497]

Hallo!

Jetzt habe ich das umgestellt.
Geht einmal und dann verschwindet meine UF (wird minimiert)

[RPP63]

Zeig mal die Datei, dann muss ich das nicht nachbauen.

Gruß Ralf

[michel34497]

Hallo!

In der UF Start ist der ToggleButton eingebaut

[RPP63]

Mal ohne das ganze Klassengedöns.
Folgendes reicht völlig:
Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 
 
Private Sub Workbook_Open() 
UserForm1.Show vbModeless 
End Sub 

Dialog UserForm1

Option Explicit 
 
Private Sub UserForm_Initialize() 
Application.WindowState = xlMinimized 
End Sub 
 
Private Sub ToggleButton1_Change() 
Application.WindowState = IIf(ToggleButton1, xlNormal, xlMinimized) 
Me.Show vbModeless 
End Sub 
 

Datei mit dem Nötigsten anbei.

Gruß Ralf

[michel34497]

Hallo Ralf!

Danke für die Hilfe!

Ich habe das getestet und bin der Meinung das isses.
Habe wieder was dazu gelernt.