sorteren tabbladen

[e de waele]

weet iemand mij te vertellen hoe ik in exel 97 de tabbladen kan sorteren?? deze staan nu allemaal door elkaar ik kan dit wel goed krijgen door ze stuk voor stuk op de goede plaats te zetten maar er zal toch wel een beter methode voor zijn ?
e de waele

 

[Wim1960]

Volgens mij is er standaard in excel geen andere mogelijkheid.

 

[Dumpplaats]

Voor zover ik weet kan je dit alleen onder de optie Bewerken - blad verplaatsen of copieren - doen.

Andere opties heb ik nog niet gevonden tot nu toe.

 

[piepoeh]

Naar de goede plaats slepen, er zit geen standaard optie voor in.

 

[DownhillRacer]

Met deze macro lukt het wel:

Sub Sorteer_Werkbladen()
Dim ws As Worksheet, rij As Integer

rij = 1

'voeg werkblad toe met als naam 10 nullen
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "0000000000"
Columns("A:A").NumberFormat = "@"

'zet alle werkbladnamen op nieuwe werkblad
For Each ws In Worksheets
Cells(rij, 1).Value = ws.Name
rij = rij + 1
Next ws

'sorteer de werkbladnamen, het nieuwe werkblad komt bovenaan in de lijst
Range(Cells(1, 1), Cells(rij - 1, 1)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

'pas de volgorde aan van de werkbladen
rij = 2
Do While Worksheets("0000000000").Cells(rij, 1) <> ""
Sheets(CStr(Worksheets("0000000000").Cells(rij, 1).Value)).Move After:=Sheets(CStr(Worksheets("0000000000").Cells(rij - 1, 1).Value))
rij = rij + 1
Loop

'wis nieuwe werkblad
Worksheets("0000000000").Delete
End Sub

 

[e de waele]

Michiel.
bedankt voor de tip ik ga hem uitproberen.
ik laat nog wat van mij horen
eric.