Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Register
#1
Hallo

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

Gruss
Oski
Antworten Top
#2
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
Gruß
Peter
Antworten Top
#3
(24.06.2015, 14:18)Peter schrieb: 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
Antworten Top
#4
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • oski
Antworten Top
#5
(24.06.2015, 14:46)RPP63 schrieb: Bekommst Du dies angepasst?

perfekt, Danke
Antworten Top
#6
Hi,

(24.06.2015, 15:03)oski schrieb: perfekt, Danke

jetzt hat er Dich grade gebeten, nicht den Vorgängerbeitrag komplett zu zitieren und schon machst Du es wieder.
Antworten Top
#7
Hallo Ralf,

war ja "kein Fullquote" Wink
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#8
Hi André,

(24.06.2015, 21:12)schauan schrieb: war ja "kein Fullquote" Wink

ja, weil ich die Zitate reduziert habe.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste