Blätter abhängig vom 1.Namen umbenennen
27.04.2021 12:37:30
Gela
da mir bisher schon so super hier geholfen wurde- heute die nächste Frage von mir:
Wie kann ich mehrere Arbeitsblätter, abhängig vom ersten Blattnamen umbenennen und dabei den numerischen Teil des Namens jeweils um 1 erhöhen?
Ich habe schon gesucht, etwas gefunden und bisher:
Sub kopieren()
Dim i
For i = 1 To 49
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = i + 1
Next
End Sub
Sub umbenennen()
Dim i As Integer
For i = 1 To 50
Sheets(i).Name = "Parz" & i
Next i
End Sub
Gruß, Gela