ich verwende in meinem Projekt verschiedene Userforms, welche ich über ein zentrales Makros einheitlich anpasse.
Ich wollte nun ein weitere Sache integrieren und zwar die Ausrichtung auf dem Bildschirm.
Wenn ich nachfolgenden Code direkt in der Userform unter: UserForm_Initialize integriere funktioniert es.
Versuche ich es in dem nachfolgenden Code, dann erhalte ich einen Fehler.
Sicherlich hat dies etwas mit der Deklaration zu tun. Leider komme ich aber nicht drauf.
Es wäre Klasse, wenn ihr mit helfen könntet.
So funktioniert es:
Private Sub UserForm_Initialize()
'Position immer gleich setzen
With Me
.Top = Application.Top + (Application.Height - .Height) / 2
.Left = Application.Left + (Application.Width - .Width) / 2
End With
End Sub
So funktioniert es nicht
Private Sub UserForm_Initialize()
uf_standard_settings Me, Me.Caption
End Sub
Sub uf_standard_settings(ByRef UF As Object, ufcap As String)'Position immer gleich setzen
With UF
.Top = Application.Top + (Application.Height - .Height) / 2
.Left = Application.Left + (Application.Width - .Width) / 2
End With
End Sub Ganz lieben Dank schon mal.
VG Steffen