in meiner arbeitsmappe befinden sich mehrere tabellenblätter, wo auch immer wieder welche dazu kommen. diese werden durch folg. macro sortiert:
Sub SortWorksheets()
Dim Cnt As Integer
Dim N As Integer
Dim M As Integer
On Error GoTo EndOfMacro
Application.ScreenUpdating = False
Cnt = ActiveWorkbook.Worksheets.Count
For M = 3 To Cnt
For N = M To Cnt
If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then
Worksheets(N).Move before:=Worksheets(M)
End If
Next N
Next M
EndOfMacro:
Application.ScreenUpdating = True
End Sub
die tabellen heißen z. bsp. hr. aaa, hr. ccc, fr. xxx, fr. zzz
nach der sortierung mit o. g. macro sieht es so aus:
fr. xxx, fr. zzz, hr. aaa, hr. ccc
wie kann ich es anstellen das die sortierung nach dem eigentlichen namen ( also hr. aaa, hr. ccc, fr. xxx, fr. zzz ) erfolgt? oder sortierung ab 4. zeichen?
dies sollte möglichst mit über o. g. macro laufen.
vielen dank schon mal