Register

[oski]

Hallo

Excel 2013
gibt es die Möglichkeit die Register (Tabellen) von links nach rechts alphabetisch aufsteigend zu sortieren?

Gruss
Oski

[Peter]

Hallo,

ich habe kein XL2013, habe aber bisher auch noch nicht mitbekommen, dass das jetzt mit Bordmitteln möglich wäre.

Bisher musste man sich mit einem VBA-Code behelfen.

Schau mal ob dir einer dieser Codes weiterhilft:

Code:

Sub SortierungBlätter()
'Quelle: A. Eckl
 Dim i As Integer
 Dim j As Integer
 For i = 1 To Sheets.Count
 For j = 1 To Sheets.Count - 1
 If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then _
 Sheets(j).Move after:=Sheets(j + 1)
Next j
Next i
End Sub

Eine weitere Möglichkeit ist dieser VBA-Code:

Code:

Public Sub SortWorksheets()
'http://www.ms-office-forum.net/forum/showthread.php?t=169524
  Dim iCount As Integer, iFirst As Integer, iSecond As Integer
  iCount = ActiveWorkbook.Worksheets.Count
  For iFirst = 1 To iCount
     For iSecond = iFirst To iCount
        If Worksheets(iSecond).Name < Worksheets(iFirst).Name Then
           Worksheets(iSecond).Move before:=Worksheets(iFirst)
         End If
     Next iSecond
  Next iFirst
End Sub

oder

Code:

Sub Tabellenblätter_sortieren()
'http://www.office-loesung.de/fpost813455.php#813455
   AnzahlRegister = Sheets.Count
   For i = 1 To AnzahlRegister - 1
   X = i
   For Zähler = i + 1 To AnzahlRegister
   If UCase$(Sheets(Zähler).Name) < UCase$(Sheets(X).Name) Then
   X = Zähler
   End If
   Next Zähler
   If X > i Then Sheets(X).Move Sheets(i)
   Next i
End Sub

[oski]

Bisher musste man sich mit einem VBA-Code behelfen.

Schau mal ob dir einer dieser Codes weiterhilft:

Danke Peter

noch eine Zusatzfrage, könnten auch nur die Register ausser die letzten zwei (ganz rechts) sortiert werden, das wäre natürlich perfekt.
Gruss
Oski

[RPP63]

Hallo!
Bitte kein Fullquote, wir sehen auch so, was darüber stand!
Alle Blätter sind Sheets.Count
alle außer den beiden rechts sind Sheets.Count - 2
Bekommst Du dies angepasst?

Gruß Ralf

[oski]

Bekommst Du dies angepasst?

perfekt, Danke

[Rabe]

Hi,

perfekt, Danke

jetzt hat er Dich grade gebeten, nicht den Vorgängerbeitrag komplett zu zitieren und schon machst Du es wieder.

[schauan]

Hallo Ralf,

war ja "kein Fullquote"

[Rabe]

Hi André,

war ja "kein Fullquote"

ja, weil ich die Zitate reduziert habe.