Moin,

mit der Hilfe von Gerd konnte ich bereits einen bestimmten Bereich mit gleicher Formatierung in ein neues Tabellenblatt (Tabelle 1) kopieren.

Sub Unit()

Dim Quelle As Range, Ziel As Range, a As Long

Set Quelle = ActiveSheet.Range("A36:C75")
Call Worksheets.Add(After:=ActiveSheet)
Set Ziel = ActiveSheet.Range("A1").Resize(Quelle.Rows.Count, Quelle.Columns.Count)

Call Quelle.Copy(Destination:=Ziel)

For a = 1 To Quelle.Columns.Count
Ziel.Columns(a).ColumnWidth = Quelle.Columns(a).ColumnWidth
Next

Set Quelle = Nothing: Set Ziel = Nothing

End Sub

Allerdings haben die Zellen B4 und C4 (neues Tabellenblatt "Tabelle1") einen Bezug auf die Zellen B4 und E4 vom kopierten Tabellenblatt ("Bewertung")

--> Kann man den Bezug mit kopieren, sodass der direkt im neuen Tabellenblatt angezeigt wird?

B4 aus dem neuen Tabellenblatt = B4 aus dem kopierten Tabellenblatt
C4 aus dem neuen Tabellenblatt = E4 aus dem kopierten Tabellenblatt

LG Jean