Tabellenblätter umbenennen

Dieses Thema Tabellenblätter umbenennen im Forum "Windows XP Forum" wurde erstellt von nok106, 22. März 2007.

Thema: Tabellenblätter umbenennen Hallo Excelfreunde ! Gibt es hierfür eine Lösung ? Folgendes Makro erstellt automatisch 12 neue Tabellenblätter....

  1. 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
     
  2. 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. & i & .2007, mmm)
      Next i
    End Sub
    Wenn du den vollen Monatsnamen möchtest, dann tausch mmm gegen mmmm

    Gruß Matjes :)
     
  3. Hallo Matjes,

    für deine schnelle Antwort meinen besten Dank.

    Klappt wunderbar ..... Danke  :1

    Gruß Odje
     
Die Seite wird geladen...

Tabellenblätter umbenennen - Ähnliche Themen

Forum Datum
Excel - Werte unterschiedlicher Tabellenblätter für Übersicht automatisch ziehen Microsoft Office Suite 22. Aug. 2010
Re: Liste bestimmter Werte aus allen Tabellenblättern erstellen Windows XP Forum 12. Mai 2009
Liste bestimmter Werte aus allen Tabellenblättern erstellen Windows XP Forum 12. Mai 2009
Mehrere Werte verschiedener Tabellenblätter in ein neues Tabellenblatt übernehme Windows XP Forum 3. März 2008
MS Excel 2000 - Suchen in Tabellenblätter Windows XP Forum 16. Jan. 2007