Userform_Initialize()
15.10.2019 11:24:24
Sven
wenn ich immer den selben Code beim Initialisieren einer Userform ausführen möchte,
kann ich das Ganze mittels einem eigenen Klassenprogramm lösen und wenn ja, wie geht das? Das _
ganze in Public Sub-Prozedur zu packen und die UF als Parameter mitgeben, wäre nun mein Ausweg...
Private Sub UserForm_Initialize()
Dim sngTop As Single, sngLeft As Single
'Userform auf aktiven Monitor legen
Me.StartUpPosition = 0
sngLeft = Application.Left + Application.Width / 2 - Me.Width / 2
sngTop = Application.Top + Application.Height / 2 - Me.Height / 2
Me.Left = sngLeft
Me.Top = sngTop
End Sub
Grüße
Sven
Anzeige