Sheets sortieren
05.11.2018 14:57:45
Chris
ich habe eine Frage zum Sheets sortieren. Excel soll ab Sheet Nr 6. alle nachfolgenden sortieren:
Der Namensaufbau ist Datum - Lfd. Nummer - Weitere Bezeichnungen...zum Beipsiel:
"05.11.2018-01-XY-Testsheet".
Excel soll nur die Zeichen 12 und 13 (also die Lfd. Nummer) zum sortieren verwenden, wo die größte Zahl immer als erstes stehen soll und alle kleineren dahinter sortiert werden sollen.
Wie muss ich folgendes Makro ändern, damit dies passiert?
Danke für Eure Hilfe. Chris
Sub SortSheet
On Error Resume Next
Dim intAnz As Integer
Dim a, b As Integer
Dim strSortKrit As String
strSortKrit = ">"
intAnz = ActiveWorkbook.Worksheets.Count
For a = 6 To intAnz
For b = a To intAnz
If strSortKrit = "" Then
If Worksheets(b).Name > Worksheets(a).Name Then
Worksheets(b).Move Before:=Worksheets(a)
End If
End If
Next b
Next a
End Sub
Anzeige