Public Shared Sub Fehlerliste2Fehlerliste()
        'If MMI.Menueleiste.Fehlerliste.Count = 0 Then
        If MMI.Menueleiste.Fehlerliste2.Count > 0 Then
            For Each item As Object In MMI.Menueleiste.Fehlerliste2
                If MMI.Menueleiste.Fehlerliste.IndexOf(item) = -1 Then
                    MMI.Menueleiste.Fehlerliste2.Add(item)
                End If
            Next
        End If
        'End If
    End Sub

mfg
rt