Blätternamen falzen

Bild

Betrifft: Blätternamen falzen
von: ömer
Geschrieben am: 21.03.2005 18:26:23
Hallo,
bitte wie kann ich die Blätter mit folgenden namen falzen:
Pos1, pos2, pos3, Re1,Re2,Re,3, Gu1,Gu2,Gu3 diese Reihe möchte ich wie folt falzen :
Pos1,RE1,Gu1,Pos2,RE2,Gu2,Pos3,RE3,Gu3,Pos4,RE4,Gu4,.............

Vielen dank im voraus
MFG
Ömer

Bild

Betrifft: AW: Blätternamen falzen
von: Nepumuk
Geschrieben am: 21.03.2005 19:32:01
Hallo ömer,
so geht's:


Option Explicit
Public Sub ömer()
    Dim intIndex1 As Integer, intIndex2 As Integer, intIndex3 As Integer
    Dim intCount As Integer
    Dim varArray As Variant
    varArray = Array("pos", "re", "gu")
    intCount = 1
    With ThisWorkbook
        For intIndex1 = 1 To .Sheets.Count
            For intIndex2 = 0 To 2
                For intIndex3 = 1 To .Sheets.Count
                    If Left$(LCase$(Sheets(intIndex3).Name), Len(varArray(intIndex2))) = varArray(intIndex2) _
                        And Val(Mid$(Sheets(intIndex3).Name, Len(varArray(intIndex2)) + 1)) = intCount Then
                        Sheets(intIndex3).Move Before:=Sheets(1 + intIndex2 + (intCount - 1) * 3)
                        Exit For
                    End If
                Next
            Next
            intCount = intCount + 1
        Next
    End With
End Sub


Gruß
Nepumuk
Bild

Betrifft: AW: Blätternamen falzen
von: ömer
Geschrieben am: 21.03.2005 20:53:35
Danke, Danke und Nochmals Danke !!
MFG
Ömer
Bild

Betrifft: Bitte um eine Ergänzung AW: Blätternamen falzen
von: ömer
Geschrieben am: 21.03.2005 22:13:42
Lieber Nepumuk,
was muss ich korrigieren, wenn dieses Falzen auf der neuen Mappe nicht mit Pos1, Re1,Gu1 sondern Pos 141,Re141, Gu141 anfangen soll
Danke
MFG
Ömer
Bild

Betrifft: Bitte um eine Ergänzung AW: Blätternamen falzen
von: Nepumuk
Geschrieben am: 21.03.2005 22:18:41
Hallo Ömer,
dann so:


Option Explicit
Public Sub ömer()
    Dim intIndex1 As Integer, intIndex2 As Integer, intIndex3 As Integer
    Dim intCount As Integer
    Dim varArray As Variant
    varArray = Array("pos", "re", "gu")
    intCount = 141
    With ThisWorkbook
        For intIndex1 = 1 To .Sheets.Count
            For intIndex2 = 0 To 2
                For intIndex3 = 1 To .Sheets.Count
                    If Left$(LCase$(Sheets(intIndex3).Name), Len(varArray(intIndex2))) = varArray(intIndex2) _
                        And Val(Mid$(Sheets(intIndex3).Name, Len(varArray(intIndex2)) + 1)) = intCount Then
                        Sheets(intIndex3).Move Before:=Sheets(1 + intIndex2 + (intCount - 141) * 3)
                        Exit For
                    End If
                Next
            Next
            intCount = intCount + 1
        Next
    End With
End Sub


Gruß
Nepumuk
Bild

Betrifft: Vielen Dank, kannst Du ein Überblick werfen
von: ömer
Geschrieben am: 21.03.2005 22:36:38
Vielen Dank Nepumuk,
weil Du so nett und hilfbereit bist, finde ich den mut Dir zu fragen ob Du für ein anderes Problem das ich am 20.03.2005 um 21:10:45 geschrieben habe , eine Lösung hast, oder ist es ein blödsinn von mir
Danke und schönen Abend
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Code mit Schleife ohne Wertabfrage nutzen"