Hi,

I also have this error in the red sentence:
Sub EinKopieren()
Workbooks.Add Template:="Arbeitsmappe" 'LEERE Arbeitsmappe erstellen
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & TabellenName 'Bewertungs NAME für LEERE Arbeitsmappe festlegen
BEWERTUNG = ActiveWorkbook.Name 'Tabelle dem Arbeitsnamen BEWERTUNG zuordnen

Could you help me please.