Guten Tag,
ich möchte eine Userform an eine Funktion übergeben, die dann die Anpassung im Fenster ändert.
Allerdings klappt die Übergabe der userform nicht, weder als String Noch Als Userform Objekt.
Hat jemand diesbezüglich eine Idee wie das klappen könnte?
Aufruf in der UserForm:
userform_style.center_version (Me.name)
Implementaion in Modul:
Function center_version(uf As String)
Dim xTop As Long, xLeft As Long
uf.StartUpPosition = 0
With Application
xLeft = .Left + .Width / 2 - version.Width / 2
xTop = .Top + .Height / 2 - version.Height / 2
End With
With version
.Left = xLeft
.Top = xTop
End With
End Function
Wenn ich den Namen hart reinschreibe funktioniert aber alles wie es soll. Ich bin ratlos
Mit freundlichen Grüßen
|