Public Sub LadeMDI(frm As Form)
Dim oFrm As Form
Dim bExists As Boolean
 
 'Sucht in Forms-Collection nach dem Namen...
 For Each oFrm In Forms
     If oFrm.Name = frm.Name Then
        'Form ist schon offen - nochmal in den Vordergrund holen
         bExists = True
         oFrm.SetFocus
         Exit For
     End If
 Next
 
End Sub

If oFrm.Name = frm.Name Then