Dim E As New Excel.Application
  Dim i As Integer
 
  E.Workbooks.Add
  E.Visible = True
  E.DisplayAlerts = False
 
  If E.ActiveWorkbook.Sheets.Count > 2 Then
    For i = 1 To E.ActiveWorkbook.Sheets.Count - 2
      E.ActiveWorkbook.Sheets(1).Delete
    Next i
    E.ActiveWorkbook.Sheets(1).Name = "Gleich"
    E.ActiveWorkbook.Sheets(2).Name = "Unleich"
  Else
    If E.ActiveWorkbook.Sheets.Count = 2 Then
      E.ActiveWorkbook.Sheets(1).Name = "Gleich"
      E.ActiveWorkbook.Sheets(2).Name = "Unleich"
    Else
      E.ActiveWorkbook.Sheets(1).Name = "Unleich"
      E.ActiveWorkbook.Sheets.Add
      E.ActiveWorkbook.Sheets(1).Name = "Gleich"
    End If
  End If