Office: Sheet umbenennen wenn string enthalten

Hallo Experten,

meine Sheets (je Mappe ca.30) haben Bezeichnungen wie z.B. "Bad08_M01 M_out"; "Bad ohne 08_M01 M_out_dP_Stat".

Nun möchte ich mit einem Makro alle "08" z.b. in 07 tauschen und die "01" in z.b. 06.

Frage:
Wie lautet der Befehl das Excel im jeweiligen Sheet-Name nur den zu ändernden String erkennt und ändert. Da die Pos. der Zahlen variiert und ich daher mit Left(), right() etc. nicht weiter komme, oder ich müsste ich auf diese Weise alle möglichen Varianten abdecken. aber es muss doch kürzer gehen.

Vielen Dank
homax

 

Hallo!

Mit Replace sollte es ganz einfach gehen:

Code:

Sub Ersetzen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Name = Replace(ws.Name, "08", "07")
ws.Name = Replace(ws.Name, "01", "06")
Next ws
End Sub

 

Vielen Dank,

wenn ich nur auch diese ganzen Befehle im Kopf hätte.
Habe es jetzt so gemacht:

Code:

Sub Sheets_umbenennen()
      
    Dim ws As Worksheet
    Dim Bez_in As String
    Dim Bez_out As String
         
    'zu ändernde Zeichenfolge eingeben:
    Bez_in = InputBox("Welche Zeichenfolge soll geändert werden? z.B. 07", , "08")
        
    'gewünschte Änderung eingeben:
    Bez_out = InputBox("In was? z.B. 09", , "09")
     
    For Each ws In ThisWorkbook.Worksheets
        ws.Name = Replace(ws.Name, Bez_in, Bez_out)
    Next ws

End Sub