Tabellenblätter nach Namen von bestimmten Zellen nennen

20/08/2008 - 12:06 von thomas müller | Report spam
Hallo,

in den Zellen z.B. A1:A10 stehen verschiedene Begriffe. Wie kann ich nun
automatisch Tabellenblàtter anlegen, die so heißen wie die in A1:A10
enthaltenen Begriffe?

Danke

thomas
 

Lesen sie die antworten

#1 Claus Busch
20/08/2008 - 12:23 | Warnen spam
Hallo Thomas,

Am Wed, 20 Aug 2008 12:06:50 +0200 schrieb thomas müller:

in den Zellen z.B. A1:A10 stehen verschiedene Begriffe. Wie kann ich nun
automatisch Tabellenblàtter anlegen, die so heißen wie die in A1:A10
enthaltenen Begriffe?



deine Blattnamen stehen in Tabelle1:
Sub BlaetterEinfuegen()

Dim i As Integer

For i = 1 To 10
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sheets("Tabelle1").Cells(i, 1)
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen