If WorkbookIndex < 100 And WorkbookIndex > 9 Then
            objWorkbook.SaveAs ActiveWorkbook.Path & "\" & ActiveWorkbook.Name _
            & " Index 00" & WorkbookIndex, ActiveWorkbook.FileFormat            _
                ' Namen des Index-Dokuments erstellen und speichern
            objFileName = ActiveWorkbook.Name & " Index 00" & WorkbookIndex _
            & "." & sEndung                                                     _
                ' Namen des Index-Dokuments merken
        End If