Skapa ny flik som döps till dagens datum

[Mr_Perfa]

Hejsan!

Försöker skapa ett makro som skapar en ny flik och döper det till dagens datum. Har testat att hitta en kod som automatiskt representerar dagens datum och även att kopiera en cell där dagens datum infogats (B2) men det vill sig inte. Just nu ser min kod ut enligt nedan. Jag är väldigt "grön" på detta :-(

 

Sub nyflik()
'
' nyflik Makro
'

'
    Sheets("Rustikalitetsanalys_mall").Select
    Sheets("Rustikalitetsanalys_mall").Copy Before:=Sheets(2)
    Range("B2").Select
    Selection.Copy
    Sheets("Rustikalitetsanalys_mall (2)").Select
    Sheets("Rustikalitetsanalys_mall (2)").Name = "=IDAG()"
    Application.CutCopyMode = False
    Sheets("Rustikalitetsanalys_mall").Select
    Range("A1").Select
End Sub

 

Förslag?

Vänligen; Fredrik

[Tune]

Detta borde fungera:

ActiveWorkbook.Sheets.Add

ActiveSheet.Name = Date

[Mr_Perfa]

Byt ut

Sheets("Rustikalitetsanalys_mall (2)").Name = "=IDAG()"

Mot

Sheets("Rustikalitetsanalys_mall (2)").Name = Date

 

Tänk på att Excels kalkylbladsformler inte är samma sak som VBA's "formler" (även om de går att använda om du gör det rätt och om funktionen stöd).

Om Today hade stötts så skulle något i den här stilen ha gett rätt svar

  Sheets("Rustikalitetsanalys_mall (2)").Name = Application.WorksheetFunction.today()

Jättetack!

Fungerade perfekt :-)

[Mr_Perfa]

 

Detta borde fungera:

ActiveWorkbook.Sheets.Add

ActiveSheet.Name = Date

 

Var givetvis tvungen att testa och även denna fungerade perfekt. Tack!