![]() |
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
![]() |