Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sheet per Macro nach Datum benennen

Sheet per Macro nach Datum benennen
15.02.2005 09:14:30
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! :-)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheet per Macro nach Datum benennen
UweD
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
AW: Sheet per Macro nach Datum benennen
15.02.2005 09:51:16
René
Hallo Uwe,
klappt super. Großes Dankeschön!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige