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
Das funktioniert bestens. Die einzelnen Tabellenblätter haben jetzt die Bezeichnung "448(2)", "448(3)" usw.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
Das erste Blatt wird noch umbenannt, dann aber stoppt der Code mit dem Hinweis, dass er nicht einem Tabellenblatt einen gleichen Namen geben kann. Ich sehe aber hier nichts doppelt. Wo könnte der Fehler liegen?Lg Berni