Danke für deine Rückmeldung!
Das ist eigtl nicht vorgesehen, da die Arbeitsblätter ebenso aufsteigend sein werden wie der Wert aus C13. D.h. der Wert aus C13 ist automatisch die Nummer/ der Name des Arbeitsblattes.
Um das umzusetzen habe ich aber bereits eine Formel gefunden die auch funktioniert.
Sub RenameSheet()
Dim rs As Worksheet
For Each rs In Sheets
rs.Name = rs.Range("C13")
Next rs
End Sub
|