UF aktivieren + Layout

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