Private Sub ClearWarnings(Pfad)
 
 Dim ExcelSheet As Object
 Dim i, RowsUsed As Integer
 Dim a
 
 If Pfad <> "" Then
 
   Set ExcelSheet = GetObject(Pfad, "Excel.sheet")
   RowsUsed = ExcelSheet.activesheet.UsedRange.Rows.Count
   For i = 2 To RowsUsed
 
    a = Left(ExcelSheet.activesheet.cells(i, 1), 7)
 
   If a = "WARNING" Then
    ExcelSheet.activesheet.Rows(i).Delete
    i = i - 1
    Else
     ExcelSheet.activesheet.cells(i, 1) = Val(ExcelSheet.activesheet.cells(i, _
       1))
    End If
 
   Next i
 
  '  Was muss hier hin??   ExcelSheet.showindow ...???
   ExcelSheet.Save
 
   Set ExcelSheet = Nothing
 
 End If
End Sub