title image


Smiley das End If muß weg
das End If muß weg



Sub BlätterSortieren()

Dim WS As Worksheet

Set WS = ActiveSheet

Anzahl = ActiveWorkbook.Worksheets.Count

For x = 1 To Anzahl

For y = x To Anzahl

If Worksheets(y).Name < Worksheets(x).Name Then Worksheets(y).Move Before:=Worksheets(x)

'End If

Next y

Next x

End Sub
Gruß Matthias

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: