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

Tabellenblätter

Forumthread: Tabellenblätter

Tabellenblätter
18.05.2006 08:46:22
Micha
Hallo zusammmen, ich möchte meine Tabellenblätter aufsteigend nach Monaten benennen. In einer anderen Datei nach wochentagen. Gibt es aucvh die Möglichkeit nach: Januar 2001; Februar 2001 usw zu benennen. Wer kann mir helfen? Micha
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter
18.05.2006 12:00:19
Harald
Hi Micha,
das wäre ne Möglichkeit (Array deinen Wünschen anpassen)

Sub benennen()
Dim i As Integer, blattname As String
i = 1
For Each blattname In Array("Montag", "Dienstag", "Mittwoch")
Sheets(i).Name = blattname
i = i + 1
Next blattname
End Sub

oder mit einer Schleife
Im Bsp. stehen die versch. Blattnamen im Blatt 1 ab Zelle A1 untereinander
also Sheets(1).cells(i, 1)

Sub benennenA()
Dim i As Integer
For i = 1 To Sheets.Count 'erstes bis letztes Blatt
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
Next i
End Sub

Gruss Harald
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige