Userform geladen?
30.08.2007 13:00:35
Sophie
bräuchte eine Möglichkeit eine Userform abzufragen, ob sie geladen ist.
Natürlich sollte diese falls sie nicht geladen ist auch nicht bei der Abfrage geladen werden.
Habe im Archiv schon was passendes gefunden, funktioniert leider nicht, weiß nicht an was es liegen kann.
Vielleicht kann mir ja einer von Euch weiterhelfen.
Muß ich irgendetwas zusätzliches installieren, Verweise ect.?
Sub Ist_Userform_geladen()
Dim bolUF As Boolean, objUF As Object
For Each objUF In UserForms
If objUF.Name = "Userform1" Then
bolUF = True
Exit For
End If
Next
MsgBox "Userform1 ist " & IIf(bolUF, "geladen!", "nicht geladen!")
End Sub
Vielen Dank im Voraus.
Gruß
Sophie