wie kann ich feststellen, ob eine userForm bereits geladen ist?
Danke für jede Antwort
Henning
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
Function IstSichtbar(UFName As String) As Boolean
Dim bolUF As Boolean, objUF As Object
For Each objUF In UserForms
If objUF.Name = UFName Then
If objUF.Visible Then IstSichtbar = True
Exit Function
End If
Next
End Function