Tabbladen sorteren lukt niet helemaal

[zwaanser]

Beste forumleden

Is het mogelijk om tabbladen met een nummer als naam te sorteren?
Het lukt mijn slechts gedeeltelijk.
Er worde gesorteerd, maar de tabbladen met 1, 10, 100, 1000 . . . staan vooraan gegroepeerd terwijl deze tussenin moeten komen.

in bijlage voorbeeldje

Greatz
Bert

 

[JEC.]

Zo moet het lukken

Sub jec()
 Dim i As Long, j As Long
 For i = 1 To Sheets.Count
     For j = i + 1 To Sheets.Count
       If CLng(Sheets(i).Name) > CLng(Sheets(j).Name) Then Sheets(j).Move Sheets(i)
     Next
  Next
End Sub

 

[AHulpje]

Werkt alleen als de naam van het werkblad numeriek is:

If UCase(Sheets(i).Name + 100000) > UCase(Sheets(j).Name + 100000) Then

of


If CLng(Sheets(i).Name) > CLng(Sheets(j).Name) Then

 

[JEC.]

Als je met numerieke waarden te maken hebt, is Ucase overbodig.

 If Sheets(i).Name + 0 > Sheets(j).Name + 0 Then
of
 If Val(Sheets(i).Name) > Val(Sheets(j).Name) Then

 

[zwaanser]

Jullie zijn geweldig, bedankt voor de snelle reactie.
Vraag is hierbij opgelost.