Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Automatische Beschriftung derTabellenblätter

Automatische Beschriftung derTabellenblätter
15.04.2003 10:59:09
Mark
Hallo zusammen,

ich habe eine Arbeitsmappe mit ca. 150 Tabellenblättern. In jedem ist in Zelle B1 die Bezeichung enthalten, mit der das Tabellenblatt benannt werden soll.

Gibt es eine Möglichlkeit die Beschriftung zu automatisieren ohne dass ich 150 Sheets muanuell öffen muss ?

Danke Mark

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Automatische Beschriftung derTabellenblätter
15.04.2003 11:04:41
Monika Weber

Hallo Mark,

ein Lösungsansatz:

Sub test()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(i).Name = Worksheets(i).Range("B1")
Next i
End Sub

Es liebs Grüessli
Monika





Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige