Tabellenblätter umbenennen
12.07.2016 14:21:37
Berni
Ich bin dabei ein umfangreicheres Excel für unsere Projektanten aufzuziehen und will dabei auch mit Codes arbeiten.
Also:
In einem ersten Schritt habe ich mir eine Mustertabelle zurechtgelegt und in einem Tabellenblatt ("Parameter") die einzelnen Projektnummern 448 bis 500 aufgelistet. Nun habe ich die Mustertabelle mit folgendem Code in die anderen Tabellen kopiert:
Sub Kopieren()
Dim i As Integer
Worksheets.Add
For i = 2 To 52
Sheets("448").Copy after:=Sheets(i)
Sheets("Parameter").Move before:=Sheets(1)
Sheets("448").Move after:=Sheets(1)
Next i
End Sub
Nun möchte ich die Tabellenblätter in die fortlaufende Nummern aus dem Blatt "Parameter" ändern. Dabei habe ich mir folgenden Code zurechtgezimmert:
Sub TabellenAusZellnamen()
Dim Zelle As Range
Dim i As Integer
Sheets("Parameter").Activate
Range("A3:A54").Select
For Each Zelle In Selection
For i = 3 To 54
Sheets(i).Name = Zelle.Value
Next i
Next Zelle
End Sub
Lg Berni
Anzeige