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

Automatische Beschriftung derTabellenblätter

Forumthread: 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

Anzeige

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





Anzeige
;

Beliebteste Forumthreads (12 Monate)

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