AW: Registername aus Zelle C1
19.08.2011 00:04:24
Matthias
Hallo
Hier eine Variante - ohne Select
Ergänzt den Registerblattnamen um den Eintrag aus Zelle C1 aus dem jeweiligen Blatt
Heißt also ein Blatt "Urlaub" und in diesem Blatt steht in C1 "2011", so wird daraus "Urlaub 2011"
Heißt also ein Blatt "Kalender" und in diesem Blatt steht in C1 "2010", so wird daraus "Kalender 2010"
Sub RegisterName()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Name = wks.Name & " " & wks.Cells(1, 3).Text
Next
End Sub
Eine andere Variante: Alle sollen "Kalender " + Jahr aus jeweils C1 heißen
Du hast z.B. 5 Tabellenblätter (Tabelle1,Tabelle2,Tabelle3,Tabelle4,Tabelle5)
im jeweiligen Blatt steht:
also in Tabelle1 steht in Zelle C1 2004
also in Tabelle2 steht in Zelle C1 2005
also in Tabelle3 steht in Zelle C1 2006
also in Tabelle4 steht in Zelle C1 2007
also in Tabelle5 steht in Zelle C1 2008
Und alle Blätter sollen dann so heißem:
Tabelle1 -> Kalender 2004
Tabelle2 -> Kalender 2005
Tabelle3 -> Kalender 2006
Tabelle4 -> Kalender 2007
Tabelle5 -> Kalender 2008
Dann kannst Du es so realisieren
Sub RegisterName()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Name = "Kalender " & wks.Cells(1, 3).Text
Next
End Sub
Dabei müsste sichergestellt sein das es keine mehrfachen Jahreszahlen gibt,
Gruß Matthias