Sheets umbenennen
05.11.2021 16:35:23
HeinzH
Habe einen Code zum umbenennen eines Sheets.
Nur das Problem ist das der Sheet der umbenannt werden soll, immer einen anderen Namen hat.
Zb 2021W40A, 2020W31 usw..
Es fangen alle mit "20" an und sollten auf "1" umbenannt werden. Mit 20* hatte ich keinen Erfolg.
Hätte jemand bitte eine Hilfe anzubieten ?
Danke
Sg, Heinz
Sub Tab_Umbenennen()
Dim i
On Error GoTo Fehler
For i = 1 To Worksheets.Count
If Left(Worksheets(i).Name, 3) = "20*" Then
Worksheets(i).Name = "1"
Exit Sub
End If
Next
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub
Anzeige