Userformmeldung wird nicht angezeigt
07.05.2021 16:50:14
Holly
ich habe eine Userform erstellt die über eine integriertes Label eine Meldung "xy" anzeigen und von alleine nach wenigen Sekunden wieder verschwinden soll.
Ergebnis im Programmdurchlauf:
Die Userform wird angezeigt und wieder ausgeblendet, jedoch erscheint in der UF nicht der Text (das Label).
Wenn ich aber mit F8 durchklicke wird der Text angezeigt. Auch wenn ich über Mousemove() Event die Userform unloade funktioniert es.
Leider nicht über unload in Initialize() oder Activate()
wo liegt der Fehler?
Private Sub UserForm_Activate()
Call Sleep(3500)
Unload Me
End Sub
Private Sub UserForm_Initialize()
If ThisWorkbook.Worksheets("Variable").Cells(71, 7) = "ja" Then On Error Resume Next
Dim Int_Width As Integer
Me.Label1.Visible = True
Me.Label1.Caption = Str_Meldung2
Int_Width = Len(UserForm_Meldung4.Label1.Caption)
UserForm_Meldung4.Width = 450 'Int_Width * 6 + Int_Width
UserForm_Meldung4.Height = Int_Width * 0.4 + Int_Width + 30
UserForm_Meldung4.Label1.Width = 420 'Int_Width * 5.5 + Int_Width
UserForm_Meldung4.Label1.Height = (Int_Width * 0.1) + Int_Width
End Sub
LG Holly
