Herbers Excel-Forum - das Archiv
Sheet per Macro nach Datum benennen
Betrifft: Sheet per Macro nach Datum benennen
von: René
Geschrieben am: 15.02.2005 09:14:30
Hallo an alle,
ich habe folgendes Problem: In einer Mappe heißt das letzte Blatt z.B. "Nov 05". Per Macro soll das letzte Blatt kopiert, am Ende eingefügt (soweit klar) und in "Dez 05" umbenannt werden. Beim nächsten Ausführen sollte das eingefügte Blatt dann "Jan 06" usw. heißen.
Kann mir jemand bei der Lösung helfen?
Übrigens großes Lob an die Forumsuser hier: Sehr kompetent und hilfsbereit! :-)
Betrifft: AW: Sheet per Macro nach Datum benennen
von: UweD
Geschrieben am: 15.02.2005 09:42:20
Hallo
so klappt es:
Sub Neu()
Dim TB, Altnam$, Altdat As Date, NeuDat As Date
Set TB = ActiveWorkbook
Altnam = TB.Sheets(TB.Sheets.Count).Name
Altdat = DateValue("01." & Left(Altnam, 3) & ".20" & Right(Altnam, 2))
NeuDat = DateSerial(Year(Altdat), Month(Altdat) + 1, 1)
TB.Sheets.Add after:=Sheets(Altnam)
ActiveSheet.Name = Format(NeuDat, "MMM YY")
End Sub
Gruß Uwe
Betrifft: AW: Sheet per Macro nach Datum benennen
von: René
Geschrieben am: 15.02.2005 09:51:16
Hallo Uwe,
klappt super. Großes Dankeschön!