Sortieren von Blättern in einem workbook

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,

probier das mal aus. Muss unter Umständen zweimal ausgeführt werden, wenn die erste Datei bereits "cum" enthält.

Option Explicit
Sub Tabellensort_aufsteigend_modified()
'(C) Ramses
Dim i As Integer, j As Integer, n As Integer
Dim strV As String, strName As String
strV = "cum"
For i = 1 To Worksheets.Count
    For n = 1 To Len(Worksheets(i).Name) - 2
        If Mid(Worksheets(i).Name, n, 3) = strV Then
            Worksheets(i).Name = "_C_" & Worksheets(i).Name
            Debug.Print Worksheets(i).Name
        End If
    Next n
Next i
For i = 1 To Worksheets.Count
    strName = Worksheets(i).Name
    For j = i To Worksheets.Count
        If Worksheets(j).Name > strName Then
            strName = Worksheets(j).Name
        End If
    Next j
    Worksheets(strName).Move Before:=Worksheets(i)
Next i
For n = 1 To 2
    For i = 1 To Worksheets.Count
        If Left(Worksheets(i).Name, 3) = "_C_" Then
            Worksheets(i).Name = Right(Worksheets(i).Name, Len(Worksheets(i).Name) - 3)
        End If
    Next i
Next n
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Der Schluss N = 1 to 2 ist eine Verlegenheit, ich weiss nicht woran es liegt, aber dann geht es:-)

Gruss Rainer

Hallo Christian,

probier das mal aus. Muss unter Umständen zweimal ausgeführt werden, wenn die erste Datei bereits "cum" enthält.

Option Explicit
Sub Tabellensort_aufsteigend_modified()
'(C) Ramses
Dim i As Integer, j As Integer, n As Integer
Dim strV As String, strName As String
strV = "cum"
For i = 1 To Worksheets.Count
    For n = 1 To Len(Worksheets(i).Name) - 2
        If Mid(Worksheets(i).Name, n, 3) = strV Then
            Worksheets(i).Name = "_C_" & Worksheets(i).Name
            Debug.Print Worksheets(i).Name
        End If
    Next n
Next i
For i = 1 To Worksheets.Count
    strName = Worksheets(i).Name
    For j = i To Worksheets.Count
        If Worksheets(j).Name > strName Then
            strName = Worksheets(j).Name
        End If
    Next j
    Worksheets(strName).Move Before:=Worksheets(i)
Next i
For n = 1 To 2
    For i = 1 To Worksheets.Count
        If Left(Worksheets(i).Name, 3) = "_C_" Then
            Worksheets(i).Name = Right(Worksheets(i).Name, Len(Worksheets(i).Name) - 3)
        End If
    Next i
Next n
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Der Schluss N = 1 to 2 ist eine Verlegenheit, ich weiss nicht woran es liegt, aber dann geht es:-)

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Sortieren von Blättern in einem workbook

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sortieren von Blättern in einem workbook

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread