Sheets sortieren - nur eingeblendete

Hallo EXCEL-Freunde,
ich möchte Tabellenblätter sortieren - allerdings nur die eingeblendeten. Aus
den Foren habe ich nachstehende Codes die cih nicht anpassen kann:
Option Explicit

'http://www.herber.de/forum/archiv/48to52/t48769.htm
Sub SortWorksheets()
Dim Cnt%, n%, m%
Dim WS As Worksheet
Set WS = ActiveSheet
''''''''##### nur eingeblendete Sheets?
Cnt = ActiveWorkbook.Worksheets.Count
For m = 1 To Cnt
For n = m To Cnt
If UCase(Worksheets(n).Name) < UCase(Worksheets(m).Name) Then ' ignoriert Groß- /Kleinbuchstaben
' If Worksheets(N).Name < Worksheets(M).Name Then
Worksheets(n).Move Before:=Worksheets(m)
End If
Next n
Next m
End Sub
'http://www.herber.de/forum/archiv/248to252/t251650.htm
Sub SheetsSortieren()
Dim Mldg As Byte
Mldg = MsgBox("sortiert die Sheets in diesem Workbook alphabetisch. Weiter?", vbInformation + vbOKCancel, "")
If Mldg = vbCancel Then Exit Sub
''''#### nur eingeblendete Sheets?
'If Sheets.Visible = True Then
AnzahlRegister = Sheets.Count '= Sheets.Visible = True
'End If
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
Public Sub sortieren_Tabellen()
'http://www.excel-center.de/foren/read.php?2,651,652#msg-652
'von Nepumuk
Dim intIndex1 As Integer, intIndex2 As Integer
Application.ScreenUpdating = False
''''#### nur eingeblendete Sheets?
For intIndex1 = 1 To Worksheets.Count - 1
For intIndex2 = intIndex1 + 1 To Worksheets.Count
If LCase$(Worksheets(intIndex2).Name) < LCase$(Worksheets(intIndex1).Name) Then Worksheets(intIndex2).Move Before:=Sheets(intIndex1)
Next
Next
Application.ScreenUpdating = True
End Sub

Code eingefügt mit: Excel Code Jeanie
Ein geänderter Code reicht.
Besten Dank für eine Hilfe!

mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Arbeitsblättersortieren() Dim iMax As Integer Dim Ibl As Integer Dimibl2 As Integer Application.ScreenUpdating = False iMax = ActiveWorkbook.Worksheets.Count For Ibl = 1 To iMax For ibl2 = Ibl To iMax If UCase(Worksheets(ibl2).Name) _ <UCase(Worksheets(Ibl).Name) Then Worksheets(ibl2).Move before:=Worksheets(Ibl) End If Next ibl2 Next IBl Application.ScreenUpdating = True End Sub

Sub SortTabs() Dim wb As Workbook Dim ws As Worksheet Dim wsn As Worksheet Dim intA As Integer, i As Integer Set Appl = Application SetApplModeOnOff False Set wb = ActiveWorkbook intA = wb.Sheets.Count Set wsn = wb.Sheets.Add(After:=wb.Sheets(intA)) With wsn For Each ws In wb.Sheets If ws.Visible = xlSheetVisible Then i = i + 1 .Cells(i, 1) = ws.Name End If Next .Columns(1).Sort .Cells(1) For i = 1 To .Cells(65536, 1).End(xlUp).Row Sheets(.Cells(i, 1).Value).Move After:=Worksheets(intA + 1) Next .Delete End With SetApplModeOnOff End Sub

Sub SetApplModeOnOff(Optional blnOn = True) With Appl .DisplayAlerts = blnOn .EnableEvents = blnOn .ScreenUpdating = blnOn .Interactive = blnOn .EnableCancelKey = blnOn If blnOn Then .Calculation = xlCalculationAutomatic Else .Calculation = xlCalculationManual End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Sheets sortieren - nur eingeblendete

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread