Tabellenblätter sortieren

Forumthread: Tabellenblätter sortieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Tabellenblätter sortieren

18.11.2002 17:50:46

Annette H.

Hallo,

gibt es eine Möglichkeit schnell 127 Tabellenblätter alphabetisch zu sortieren?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Tabellenblätter sortieren

18.11.2002 17:54:50

andreas e
Re: Tabellenblätter sortieren

18.11.2002 17:55:09

Hans W. Herber

Re: Tabellenblätter sortieren

18.11.2002 17:54:50

andreas e

hallo ,
nimm mal diesen code:
//sheets alphabetisch einreihen//
[10.11.02]
Sub BlätterSortieren()
Dim WS As Worksheet
Dim X As Integer
Dim Y As Integer
Set WS = ActiveSheet
For X = 1 To ActiveWorkbook.Worksheets.Count
For Y = X To ActiveWorkbook.Worksheets.Count
If Worksheets(Y).Name < Worksheets(X).Name Then
Worksheets(Y).Move Before:=Worksheets(X)
End If
Next Y
Next X
WS.Activate
Set WS = Nothing
End Sub

gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Lösungsansätze zu EXCEL und mehr