Aktualisieren der UF
09.12.2005 17:41:45
Dirk
Wie schaffe ich es, dass dieser Prozess funktioniert?
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UserForm1.Show 0
Application.Wait Now + TimeValue("00:00:05")
UserForm1.Label3.Caption = "Suche nach Programmen"
UserForm1.Image1.Picture = LoadPicture("C:\start.jpg")
Application.Wait Now + TimeValue("00:00:03")
Unload UserForm1
End Sub
Also dieser Code soll das Bild der UF aktualisieren und das label3
im einzellschritt funktioniert das auch aber nicht im normalen ablauf
kann mir jemand helfen?
MFG
Dirk
Anzeige