Makro UF Activate: Paramterübergabe klappt nicht
Holger
ich aktiviere in einem Makro eine Userform.
1 Ich würde gerne der Userform Parameter übergeben, da erscheint aber ein Kompilierungsfehler. Warum?
2 In dem Makro UserForm Activate wird das Unload Me erst ausgeführt, wenn der restliche Code des Makros, aus dem es aufgerufen wird, beendet ist. Das verstehe ich auch nicht.
Kann mir jemand bitte hierzu weiterhelfen?
Sub test()
msgform.show
... restlicher Code.
' Unload.Me geschieht erst wenn restlicher Code ausgeführt ist
End Sub
Private Sub UserForm_Activate()
Dim intL As Integer
Dim strNewPeriod As String
strNewPeriod = Range("J2").Value
Me.lbl_Message.Caption = "Eine neue Periode wurde ermittelt," & Chr(10) & _
"das Telecom Load Status File wird angepasst in: "
Me.lbl_Period.Caption = strNewPeriod
Me.lbl_Period.Font.Underline = True
lbl_Counter.Font.Bold = True
Sleep 30
For intL = 10 To 1 Step -1
DoEvents
lbl_Counter.Caption = intL
If intL = 1 Then Me.lbl_Message.Caption = "Anpassung läuft: Worksheets werden gesichert, _
_
SQL Datei angepasst, Worksheet vorbereitet"
Application.Wait Now + TimeValue("00:00:01")
Next intL
Unload Me
End Sub