title image


Smiley Die nächsten 12 TZabellenblätter mitInhalten aus Zellen A1:A12 benennen
Hey hunger,



verwende dazu folgendes Makro :

      

Sub TabNamenNächste12()

    'Benennt die nächsten 12 Tabellenblätter mit den Inhalten

    'der Zellen A1:A12

    Dim Zeile

    For Zeile = 1 To 12

        Sheets(ActiveSheet.Index + Zeile).Name = Cells(Zeile, "A")

    Next

End Sub 

Voraussetzungen für erfolgreichen Durchlauf :

die Namen stehen im, aktuellen Blatt in A1:A12

Die Einträge in A1:A12 sind nicht doppelt und entsprechen den Richtlinien für Tabellenblattnamen

hinter dem aktuellen Blatt befinden sich mindest 12 Blätter

Die Arbeitsmappe ist nicht geschützt

Makros sind aktiviert

etc.

Beispiel für eine gültige Liste in A1:A12

 A1Januar2Februar3März4April5Mai6Juni7Juli8August9September10Oktober11November12Dezember

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: