Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Sheet per Macro nach Datum benennen"
Benennen von Tabellenblättern mit Monatsnamen Tabellenblätter benennen
Datei umbenennen Neueste Textdatei eines Verzeichnisses suchen und umbenennen
Kopieren und Umbenennen eines Blattes Arbeitsblatt nach Zellinhalt benennen
Format-Menü löschen und ShortCut umbenennen Schaltflächen gem. Tabelleninhalten anlegen und benennen.