UF aktivieren + Layout
18.09.2004 11:56:01
Erich M.
habe mit Hilfe des Forums bzw. Recherche das Öffnen einer UF wie folgt
entwickelt:
Private Sub UserForm_Layout()
' Von Bert Körn
' <a href="http://www.forum.excelabc.de/">http://www.forum.excelabc.de/</a>
Me.Move Application.Width / 2 - Me.Width / 2, Application.Height / 2 - Me.Height / 2
End Sub
Private Sub UserForm_Initialize()
Dim z As Integer, s As Integer
z = Range("A65536").End(xlUp).Row
s = 7
' Ergänzen!!
With Label3
.Caption = Sheets("Zählblatt").Cells(z, s)
End With
End Sub
Private Sub UserForm_Activate()
Dim sngTime As Single
sngTime = Timer + 6
Do
Label4 = Format((sngTime - Timer) \ 1, "##### Sekunden")
DoEvents
Loop Until sngTime <= Timer
Unload Me
End Sub
Das Ganze funktioniert soweit ganz prima. Allerdings gibt es einen
Schönheitsfehler:
Die UF wird doppelt (hintereinander, leicht versetzt) angezeigt.
Nun habe ich die obigen Codes schon unterschiedlich gemixt und verschoben
- aber immer ohne Erfolg.
Gibt es eine Möglichkeit das "Layout" (verhindert, dass die UF verschoben
werden kann) irgendwie in Initialize oder Activate zu integrieren??
Besten Dank für eine Hilfe!
mfg
Erich