Microsoft Excel

Herbers Excel/VBA-Archiv

Automatische Beschriftung derTabellenblätter

Betrifft: Automatische Beschriftung derTabellenblätter
von: Mark
Geschrieben am: 15.04.2003 - 10:59:09

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

  

Re: Automatische Beschriftung derTabellenblätter
von: Monika Weber
Geschrieben am: 15.04.2003 - 11:04:41

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





 

Beiträge aus den Excel-Beispielen zum Thema "Automatische Beschriftung derTabellenblätter"