Sheet per Macro nach Datum benennen

• Sheet per Macro nach Datum benennen von René vom 15.02.2005 09:14:30
• AW: Sheet per Macro nach Datum benennen - von UweD am 15.02.2005 09:42:20
  • AW: Sheet per Macro nach Datum benennen - von René am 15.02.2005 09:51:16

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!

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