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"