Nieuwe sheet, alfabetisch tussen andere sheets zetten.

[bgoo]

Hallo,

Ik heb in een bestand een aantal Sheets, deze zijn op alfabetische volgorde.
Ik heb een macro om een nieuwe sheet te maken met een bepaalde naam.

Ik heb onderstaande formule om alle sheets te alfabetiseren, maar om dit elke keer na het maken van een sheet te doen is minder prettig. Het scherm gaat namelijk knipperen omdat hij veel sheets alfabetiseert.

Dim i As Integer
Dim y As Integer
Dim X As Integer
Dim mySheet As Object
Dim SheetName As String
i = Sheets.Count


For y = 1 To i
Set mySheet = Sheets(y)
SheetName = mySheet.name
For X = y To i
If SheetName > Sheets(X).name Then
SheetName = Sheets(X).name
End If
Next
Sheets(SheetName).Move Before:=Sheets(y)
Next

Is er een mogelijkheid om alleen de nieuwe sheet (op aanmaak) op de juiste alfabetische plek tussen de andere sheets te zetten? Of is er een manier van alfabetiseren dat hij tijdens het alfabetiseren op een bepaalde sheet blijft staan tot hij klaar is?

Dank!

 

[Niels28]

Om het knipperen tegen te gaan zet bovenaan in je macro

Application.screenupdating = false

onder aan in je macro

Application.screenupdating = true

Niels

 

[bgoo]

Super relax dank je!

 

[Niels28]

blad verplaatsen op volgorde, let op net als bij jouw macro is een hoofdletter altijd kleine dan een kleine letter.
Dus alles met een hoofdletter komt voor de kleine letters.

Sub Macro1()
For i = 1 To Sheets.Count
If ActiveSheet.Name < Sheets(i).Name Then
ActiveSheet.Move Before:=Sheets(i)
Exit For
End If
Next
End Sub

zo maakt een hoofdletter niks meer uit.

Sub Macro1()
For i = 1 To Sheets.Count
If UCase(ActiveSheet.Name) < UCase(Sheets(i).Name) Then
ActiveSheet.Move Before:=Sheets(i)
Exit For
End If
Next
End Sub

Niels