Tabbladen sorteren

[verluc]

Heb reeds verschillende macro's gezien die het sorteren van tabbladen mogelijk maken.
Voor mijn probleem heb ik echter nog geen toepasbare oplossing gezien.
Ik heb volgende tabbladen :

AAN0111 AAN0211 AAN0212 AAN0811 AAN0912

De eerste twee cijfers gelden voor de maand en de twee volgende cijfers voor het jaar.
De sortering zou dus als volgt moeten zijn :

AAN0111 AAN0211 AAN0811 AAN0212 AAN0912

Is dit mogelijk en zo ja kan iemand een suggestie geven?
Met dank bij voor baat

 

[snb]

Geef de bladnamen een sorteerbare naam.
De ISO standaard is daarvoor al bedacht: gebruik de small-endian notatie jaar-maand-dag

In jouw geval aan201209,aan201107, etc.
Ontwerpen / struktureren gaat vooraf aan programmeren.
Hoe beter je ontwerp hoe eenvoudiger je programmeerwerk.

 

[RaymondC]

Zou deze misschien werken voor jou?

Option Explicit

Sub SortSheets()
   Application.ScreenUpdating = False
   Dim I As Integer, J As Integer

   For I = 1 To Sheets.Count - 1  'Aantal tabbladen die aanwezig zijn / Pak 1 tabblad
      For J = I + 1 To Sheets.Count ' Pak 1 tabblad verder
         If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then 'Als tablad 1 groter in alfabet is dan tabblad 2
            Sheets(J).Move Before:=Sheets(I) 'wissel deze om
         End If
     Next J
  Next I
End Sub

 

[verluc]

snb,

Mijn gewaardeerde dank voor Uw opmerking.Dit is inderdaad de oplossing voor mijn probleem.
Heb mijn macro in die aangepast en werkt perfect.
Zet deze vraag op "opgelost".

 

[verluc]

Sorry RaymondC, de oplossing met een eenvoudige aanpassing van mijn macro werd gegeven door SNB
In ieder geval, bedankt voor Uw medewerking en genomen tijd.