Blattbenennung mit Datum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Andre,

nach einigem rumprobieren hab ich's lösen können.

Leider funktioniert der Code nur auf meiner Arbeit (Office97).

Zuhause (OfficeXP) hängt er sich immer bei der Codezeile

AlterBlattname auf???

Hier die Prozedur:

Option Explicit
Sub NeuerName()
      Dim i As Byte
      Dim Tag$, Monat$, Jahr$
      Dim AlterBlattname$, NeuerBlattname$

      'Anzahl Blätter
      i = Worksheets.Count

      'Zerlegung AlterBlattname
      Tag = 1
      Monat = Mid(Worksheets(i).Name, 1, 3)
      Jahr = Right(Worksheets(i).Name, 2)

      'Zuweisung Datum für AlterBlattname
      AlterBlattname = CDate(Tag & "." & Monat & "." & Jahr)

      'NeuerBlattname = AlterBlattname +1Monat
      NeuerBlattname = Format(DateAdd("m", 1, AlterBlattname), "mmmyy")

      'Musterblatt kopieren und am Ende einfügen
      Worksheets("Muster").Copy after:=Worksheets(i)

      'Blatt neuen Namen zuweisen
      ActiveSheet.Name = NeuerBlattname
End Sub

Ciao MikeS

P.S. Nochmal vielen Dank für Deinen Lösungsansatz

Hi Andre,

mittlerweile habe ich eine andere Lösung gefunden,
die unter Excel97, 2000 & XP läuft.

Das Problem lag bei der Blattnamenauslesung, sodaß ich
bei der Blattbenennung auf das Format "mmyy" übergegangen
bin.

Probier's doch mal aus und gib mir Rückinfo.

Hier der Code:

Private Sub CommandButton3_Click()
      Dim i As Byte
      Dim Tag$, Monat$, Jahr$
      Dim AlterBlattname As Date, NeuerBlattname As Date

      'Anzahl Blätter
      i = Worksheets.Count

      'Zerlegung AlterBlattname
      Tag = "01"
      Monat = Left(Worksheets(i).Name, 2)
      Jahr = Right(Worksheets(i).Name, 2)

      'Datum von AlterBlattname
      AlterBlattname = CDate(Tag & "." & Monat & "." & Jahr)

      'NeuerBlattname = AlterBlattname +1Monat
      NeuerBlattname = DateAdd("m", 1, AlterBlattname)

      'Musterblatt kopieren und am Ende einfügen
      Worksheets("Muster").Copy after:=Worksheets(i)

      'Blatt neuen Namen zuweisen
      ActiveSheet.Name = Format(NeuerBlattname, "mmyy")

      'Blattname in Zelle D1 schreiben
      [D1] = Format(NeuerBlattname, "mmmm") & " " & Format(NeuerBlattname, "yyyy")

      'Register hinzufügen (Caption = NeuerBlattname)
      UserForm1.TabStrip1.Tabs.Add.Caption = Format(NeuerBlattname, "mmmyy")

      'Neues Register aktivieren
      UserForm1.TabStrip1.Value = UserForm1.TabStrip1.Tabs.Count - 1

End Sub

Ciao MikeS

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread