Blätter mit fortl. Nummern umbenennen

Bild

Betrifft: Blätter mit fortl. Nummern umbenennen von: ÖMER
Geschrieben am: 23.03.2005 18:17:16

Auf der Mappe sind 210 Blätter, die so gefalzt sind:

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

Bild


Betrifft: AW: Blätter mit fortl. Nummern umbenennen von: Holger
Geschrieben am: 23.03.2005 18:24:27

Hallo Ömer
Was ist Eigentlich mit dieser Seite ??????
https://www.herber.de/forum/messages/588499.html
Hier ist doch schon alles Beantwortet worden oder ?
Gruß Holger


Bild


Betrifft: AW: Blätter mit fortl. Nummern umbenennen von: ömer
Geschrieben am: 23.03.2005 21:34:50

Hallo Holger,
es war für falzen. Diesmal möchte ich die vorhandene Blätternamen in einer neuen Mappe umbenennen.
Danke für den Hinweis und schönen Abend

ömer


Bild


Betrifft: AW: Blätter mit fortl. Nummern umbenennen von: Martin Beck
Geschrieben am: 24.03.2005 12:50:07

Hallo Ömer,

aufbauend auf Nepumuks Code:

Public
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


Gruß
Martin Beck


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blätter mit fortl. Nummern umbenennen"