Sheet per Macro nach Datum benennen

Bild

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! :-)

Bild


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


Bild


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!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sheet per Macro nach Datum benennen"