einheitliches Makros für Userform (UF übergeben)
18.04.2009 11:33:21
SteffenS
ich möchte gern verschiedene Werte in einer Userform ändern und dies zentral in einem Makro.
Ich habe hierzu den Code
Sub uf_grafik_einsetzen(UF As UserForm)
'Hintergrund ändern
UF.Picture = LoadPicture(ThisWorkbook.Path & "\plq_system\plq_bg.jpg")
End Sub
Leider funktioniert dieser beim Aufruf über:
Private
Sub UserForm_Initialize()
'Hintergrund ändern
uf_grafik_einsetzen Me
End If
nicht.
Was mache ich falsch?
Danke im Voraus.
MFG
Steffen Schmerler