Hallo
Excel 2013
gibt es die Möglichkeit die Register (Tabellen) von links nach rechts alphabetisch aufsteigend zu sortieren?
Gruss
Oski
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
(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
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
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.
Hi André,
(24.06.2015, 21:12)schauan schrieb: [ -> ]war ja "kein Fullquote"
ja, weil ich die Zitate reduziert habe.