Herbers Excel-Forum - das Archiv
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
- 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é
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 SubGruß 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!
| |