User Form
29.12.2016 12:06:39
Gunter
Eine UF wird mit einem Command Button geöffnet:
Private Sub CommandButton1_Click()
Load KW
KW.Show
End Sub
Das funktioniert soweit auch.
Wenn ich die UF mit dem "Schliessen Kreuz" schliesse, wird sie auch geschlossen.
Dazu habe ich folgenden Code:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Me.Hide
End If
End Sub
Danach wird sie allerdings erst nach dem zweiten Mal klicken auf den Command Button geöffnet. Beim ersten Mal klicken erscheint die UF nur ganz kurz und verschwindet wieder, sie ist aber auch nicht im Hintergrund. Wenn ich mit F8 den Command Button durchgehe, dann wird sie sofort geöffnet, auch wenn vorher mit dem Kreuz geschlossen!?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter