Userform im Hintergrund laden...und...
KLE
Hi,
ich habe eine Datei, mit verschiedenen Userformen. Wenn die HauptUserform geladen wird, dauert es einige Sekunden, da viele Listen eingelesen werden müssen etc. Nun würde ich gern eine kleine Info-Userform anzeigen mit einem animierten Gif (rotierender Kreis) - als "Wartezeit"-Überbrücker.
Diese hat folgenden Code...
Private Sub Userform_Activate()
strPfad = ThisWorkbook.Path & "\"
WebBrowser1.Navigate strPfad & "loader.gif" ' animiertes GIF laden
UFDaten.Show
If isFormLoaded("UFDaten") Then Unload Me
End Sub
Function isFormLoaded(ByVal strName As String) As Boolean
Dim i As Integer
isFormLoaded = True
strName = LCase(strName)
For i = 0 To VBA.UserForms.Count - 1
If LCase(UserForms(i).Name) = strName Then Exit Function
Next
isFormLoaded = False
End Function
Problem:
Das Laden der Hauptuserform - blockiert alles, d.h. die WarteZeit-Form bleibt zwar kurz sichtbar, aber das Web-Element (animiertes Gif) macht nichts - weiß....
Frage:
Kann man eine Userform im Hintergrund laden? Oder wie kann ich es "optimaler" gestalten?!?
Gruß und Danke
Kay