title image


Smiley Re: Blätter sortieren
Besser wärs schon, wenn du dich an eine Namenskonvention halten würdest, wird nur immer Alles komplizierter.

In diesem Fall gehts aber so:



Option Explicit

Sub Blätter_sortieren()

Dim Sc As Integer, X As Integer, Y As Integer

On Error Resume Next

With Application

.ScreenUpdating = False

Sc = ActiveWorkbook.Sheets.Count

For Y = 1 To Sc

For X = Y To Sc

If CDate(Left(Sheets(X).Name, 10)) < CDate(Left(Sheets(Y).Name, 10)) Then

Sheets(X).Move before:=Sheets(Y)

End If

Next

Next

.ScreenUpdating = True

End With

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: