Tabellenblätter umbenennen

nok106 · 22.03.2007

Hallo Excelfreunde !

Gibt es hierfür eine Lösung ?

Folgendes Makro erstellt automatisch 12 neue Tabellenblätter.
Auf allen hinzugefügten Tabellenblätter wird derselbe Inhalt von der Tabelle1 stehen.

Die hinzugefügten Blätter werden von 1 bis 12 nummeriert.

Meine Frage:
Könnten statt der Nummern auch die Monate Januar bis Dezember damit ausgegeben werden ?

Sub Tabellen_einfügen_kopieren()
Dim i As Integer
For i = 1 To 12
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Tabelle & Sheets.Count
Next i
End Sub

Hat jemand eine Idee ob das geht und wenn ja - Wie ?

Einstweilen herzlichen Dank an alle, die sich für mich bemühen.

MfG Odje

Matjes · 22.03.2007

z.B. so

Code:

Sub Tabellen_einfügen_kopieren()
  Dim i As Integer
  
  For i = 1 To 12
    Sheets(1).Copy After:=Sheets(Sheets.Count)
  Next i
  
  For i = 1 To 12
    Sheets(i + 1).Name = Format(1. &amp; i &amp; .2007, mmm)
  Next i
End Sub

Wenn du den vollen Monatsnamen möchtest, dann tausch mmm gegen mmmm

Gruß Matjes

nok106 · 22.03.2007

Hallo Matjes,

für deine schnelle Antwort meinen besten Dank.

Klappt wunderbar ..... Danke :1

Gruß Odje

Tabellenblätter umbenennen

nok106

Matjes

nok106

Tabellenblätter umbenennen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums