Sheetsortierung ohne 1. Buchstaben
04.04.2021 02:24:18
Max
ich möchte Sheets sortieren ohne Einfluss des ersten Zeichens.
Die Sortierung anhand Buchstaben und Zahlen klappt und ist entsprechend simpel mit größer/kleiner-Vergleich umgesetzt:
https://www.herber.de/bbs/user/145296.xlsm
Sub SortSheet()
Dim arr()
n = Worksheets.Count
ReDim arr(n)
'Array mit Sheetnamen der aktuellen Reihenfolge erstellen
For k = 4 To n
arr(k) = (Worksheets(k).Name)
Next k
For i = 4 To n
For j = 4 To n
If arr(j) > arr(i) Then
h = arr(i)
arr(i) = arr(j)
arr(j) = h
End If
Next j
Next i
For g = 4 To n
'hier wird einfach jedes Sheet nach hinten verschoben entsprechend der geordneten _
Reihenfolge des Arrays
Worksheets(CStr(arr(g))).Move after:=Worksheets(n)
Next g
End Sub
Was muss ich am Code ändern bzw. wie bekomme ich die entsprechende Abhängigkeit mit rein?
Vielen Dank im Voraus euch und schöne Ostern!
Max