Gem og Gem som

Uden jeg er VBA haj, er det så ikke "bare" noget ala:
http://msdn.microsoft.com/en-us/library/office/ff197585(v=office.15).aspx
http://msdn.microsoft.com/en-us/library/office/ff841185(v=office.15).aspx

det bliver så:

Sub Makro1()
ActiveWorkbook.Save
ActiveWorkbook.SaveAs (ActiveWorkbook.FullName & " - Rangering af tabeller ÅÅÅÅMMDD")
End Sub

claes57> ÅÅÅÅMMDD står får ÅR måned dag. Altså aktuelle dato. Hvordan får man det til at virke?

Sub Makro1()
ActiveWorkbook.Save
ActiveWorkbook.SaveAs (ActiveWorkbook.FullName & " - Rangering af tabeller " & Format(Date, "yyyymmdd"))
End Sub

obs

ActiveWorkbook.SaveAs (ActiveWorkbook.FullName & " - Rangering af tabeller " & Format(Date, "yyyymmdd"))

skal være på én linje.

Hvad gør jeg hvis jeg vil have tilføjet tidspunkt TT:MM:SS efter dato?

bare en idé: sæt cursor på Format mens du ser på makro i excel, og du ville kunne lave det selv.
Men det korte af det lange er at du tilføjer tiden:
ActiveWorkbook.SaveAs (ActiveWorkbook.FullName & " - Rangering af tabeller " & Format(Date, "yyyymmdd") & " " & Format(Time, "hh:mm:ss"))


stykket & " "  mellem date og time er bare et mellemrum, så dag og time ikke hænger sammen.

claes57> tak for forslaget. Jeg forstår dog ikke det med cursor. Når jeg jeg skriver det du har skrevet, så foreslåes noget, men ikke så jeg kan se hvad jeg skal skrive.

Jeg har 2 udfordringer i
ActiveWorkbook.SaveAs (ActiveWorkbook.FullName & " - Rangering af tabeller - " & Format(Date, "yyyy-mm-dd") & " - " & Format(Time, "hh:mm:ss")):

1: Når den gemmer med FullName kommer .xlsm også med inden "- Rangering af tabell.....". Det giver et filformat som ikke kendes.

2: Format(Time, "hh:nn:ss") - Fejler.

det, der foreslås, er fra hjælpefilen til excel. Du bør scrolle siden igennem og læse den. Det er forklaring på 'format' og hvad den kan. Du skal så selv finde de linjer du har brug for.

vi er enige om, at jeg brugte "hh:mm:ss" og du i 2) siger at "hh:nn:ss" fejler - kan du se forskellen?

1) det kræver lidt mere kode at pille extension fra og sætte den sidst - her et en måde:
Sub Makro1()
ActiveWorkbook.Save
' det fulde filnavn inkl sti og extension
filnavn = ActiveWorkbook.FullName
' find sidste punktum
fjern = InStrRev(filnavn, ".")
' ekstension er den del, der er efter punktum
filtype = Right(filnavn, Len(filnavn) - fjern)
' filnavn uden extension er frem til punktum
filnavn = Left(filnavn, fjern)
ActiveWorkbook.SaveAs (ActiveWorkbook.FullName & " - Rangering af tabeller " & Format(Date, "yyyy-mm-dd") & " - " & Format(Time, "hh:mm:ss") & filtype)
End Sub


a) det kan være, at "hh:mm:ss" skal udskiftes med "Hh:Nn:Ss", eller evt "Long Time"
b) det kan være, at der mangler et punktum før extension - hvis det sker, så ret
filtype = Right(filnavn, Len(filnavn) - fjern)
til
filtype = "." & Right(filnavn, Len(filnavn) - fjern)

Du har ret i at jeg var kommet til at skrive "HH:NN:SS". Der skulle selvfølgelig være "HH:MM:SS".

Jeg har prøvet at køre din makro, men får fejl i sidste linje:

ActiveWorkbook.SaveAs (ActiveWorkbook.FullName & " - Rangering af tabeller " & Format(Date, "yyyy-mm-dd") & " - " & Format(Time, "hh:mm:ss") & filtype)

Der står at:
Method 'SaveAs' of object '_Workbook' failed.

ret den til
ActiveWorkbook.SaveAs (filnavn & " - Rangering af tabeller " & Format(Date, "yyyy-mm-dd") & " - " & Format(Time, "hh:mm:ss") & filtype)

glipper den, så mangler der måske et punktum før filtype - i så fald
ActiveWorkbook.SaveAs (filnavn & " - Rangering af tabeller " & Format(Date, "yyyy-mm-dd") & " - " & Format(Time, "hh:mm:ss") & "." & filtype)

Spørgsmål lukket - Virker ikke.