Ich möchte gerne einen bestimmten Inhalt eines Tabellenblattes in ein neues einfügen.
Schaffe es bereits, das komplette Blatt zu kopieren und mit Bezug zu benennen.
Ich möchte jedoch nur die Range(A1:D51) kopieren und nicht alles. Ich weiß jedoch nicht, wo ich das integrieren muss. Meinen bisherigen Code sende ich anbei
Sub Listung_Neu()
Dim Datum As Date
Dim wksLast As Worksheet
Set wksLast = Worksheets(Worksheets.Count)
Datum = Sheets(Tabelle1).Copy After:=wksLast
With ActiveSheet
.Name = Format(Datum, DD.MM.YYYY)
.Range(C2) = Datum
End with
End sub