Excel: Per Makro neues Blatt erstellen mit heutigem Datum als Name?

Ich habe eine Exceltabelle in der ich aus einem Blatt mit dem namen Vorlage jeden morgen ein neues Blatt erstelle mit dem aktuellen Datum als Namen. Gibt es eine Möglichkeit per Makro dieses Blatt kopieren zu lassen und dem neuen Blatt das aktuelle Datum als Namen geben zu lassen?

Ich hoffe, meine Frage ist verständlich formuliert.

Answer 1

[iQa1x]

private sub Workbook_Open()
  datum = FormatDateTime(Date, vbShortDate)
  if (Worksheets(Worksheets.Count).Name <> datum) then
    Worksheets("Vorlage").Copy After:=Worksheets(Worksheets.Count).Name
    ActiveWorksheet.Name = datum  
  end if
end sub

(ungetestet)

Woher ich das weiß: Studium / Ausbildung – Informatiker

Comments

[DochLaptop]

Super, funktioniert. Vielen Dank!