If Stufe = 1 Or Stufe = 2 Then
                If MMI.Menueleiste.FehlerZaehler > 0 Then
                    For Each s As String In MMI.Menueleiste.Fehlerliste2
                        If s.IndexOf("F" & ArrayPos) > -1 Or s.IndexOf("W" & _
                          ArrayPos) > -1 Then
                            MMI.Menueleiste.Fehlerliste2.Remove(s)
                        End If
                    Next
                    MMI.Menueleiste.FehlerZaehler -= 1
                    If MMI.Menueleiste.Fehlerliste2.Count > 0 Then
                        MMI.Menueleiste.lbFehlermeldung.Text = _
                          MMI.Menueleiste.Fehlerliste2.Item( _
                          MMI.Menueleiste.Fehlerliste2.Count - 1)
                    End If
                End If
            End If

mfg
rt