Ich habe dir ein Makro geschrieben, mit dem du alle nötigen (nicht vorhandenen) Blätter auf der Auswertungsdatei erstellen kannst (Vorlage wird Blatt für Blatt kopiert und umbenannt)

Du musst nur noch per Makro

Ergebnis1 öffnen, aktivieren

Mein Makro aufrufen

Deine Daten aus Ergebins1 Blatt für Blatt in Auswertung kopieren

Ergebnis2 öffnen

Mein Makro aufrufen (eigentlich unnötig, wenn exakt die gleichen Blätter wie in Ergebnis1)

Deine Daten aus Ergebins2 Blatt für Blatt in Auswertung kopieren

ODER

in einer einzigen Schleife Ergebnis 1 UND Ergebnis2 kopieren

Mein Makro dauert 1-2 min, also nicht wundern (wahrscheinlich hast du jede Menge Formeln in der Vorlage).

Kann sein, dass ich die eine oder andere Variable nicht dimensioniert habe, ggf nachholen.

Sub CopySheets()
     Start
     Dim qn, zn
     Dim QF As Object: Set QF = ActiveWorkbook ' Ergebnis aktivieren nicht vergessen
     Dim ZF As Object: Set ZF = ThisWorkbook
     Dim QFW As Object
     Dim ZFW As Object
     qn = QF.Name 'für Debugging-Zwecke
     zn = ZF.Name 'für Debugging-Zwecke
     For i = 1 To QF.Sheets.Count
          found = 0
          nai = QF.Sheets(i).Name
          For ii = 1 To ZF.Sheets.Count
               naii = ZF.Sheets(ii).Name
               If ZF.Sheets(ii).Name = QF.Sheets(i).Name Then
                    found = ii
                    Exit For
               End If
          Next ii
          If found = 0 Then
               ZF.Sheets(2).Copy After:=ZF.Sheets(ZF.Sheets.Count)
               Set QFW = QF.Worksheets(i)
               Set ZFW = ZF.Worksheets(ZF.Sheets.Count)
               ZFW.Name = QFW.Name
          End If
     Next i
End Sub