Pos1, Re1, Gu1,
Pos2, Re2,Gu2
usw. bis 70
Wie kann ich diese Mappe umbenennen wie zB.:
Pos71, Re71, Gu71,
Pos72, Re72,Gu72
Vielen Dank im voraus
MFG
Ömer
Sub ömer2()
Dim intIndex1 As Integer, intIndex2 As Integer, intIndex3 As Integer
Dim intCount As Integer
Dim varArray As Variant
varArray = Array("pos", "re", "gu")
For intIndex1 = 1 To Sheets.Count
For intIndex2 = 0 To 2
If Left$(LCase$(Sheets(intIndex1).Name), Len(varArray(intIndex2))) = varArray(intIndex2) Then
Sheets(intIndex1).Name = Left(Sheets(intIndex1).Name, Len(varArray(intIndex2))) & 70 + Right(Sheets(intIndex1).Name, Len(Sheets(intIndex1).Name) - Len(varArray(intIndex2)))
Exit For
End If
Next intIndex2
Next intIndex1
End Sub