Sortieren
Christian
Habe wieder mal ein kleines Problem.....
Habe ein File bei dem durch eine Maske ein Namesnliste gefüllt wird, aus dem jeweilig eingegebenen Namen wird, aus einer Vorlage, ein Stammblatt mit Namen und Vornamen erstellt.
Das ganze sotiert sich automatisch nach dem Alphabet..............einziger Schönheitsfehler......die ersten 2 Blätter (Namen und Vorlage) möchte ich bei der Sortierung NICHT berücksichtigen.
Leider komm ich nicht drauf wie ich die ausschliesse
Christian
Hier noch der Code zum Sortieren:
Sub BlätterSortieren_BeiKlick()
Dim Liste As Object, Nr As Integer, AlleBlätter As Object
If ActiveWorkbook.ProtectStructure Then
MsgBox "Bearbeitung geschützter Arbeitsmappen nicht möglich", vbOKOnly + vbCritical, " _
Fehler"
Exit Sub
End If
Application.ScreenUpdating = False
If Auswahl Then Set AlleBlätter = ActiveWindow.SelectedSheets Else Set AlleBlätter = _
ActiveWorkbook.Sheets
Set Liste = Workbooks.Add(xlWorksheet).ActiveSheet
Liste.[B1].Activate
' Liste mit Blatnamen und Blattypen erstellen
For Nr = 1 To AlleBlätter.Count
Select Case TypeName(AlleBlätter(Nr))
Case "Worksheet": Cells(Nr, 2) = IIf(AlleBlätter(Nr).Type = xlWorksheet, 1, 4)
Case "Chart": Cells(Nr, 2) = IIf(DiagrammeTrennen, 2, 1)
Case "Module": Cells(Nr, 2) = 3
Case "DialogSheet": Cells(Nr, 2) = 5
Case Else: Cells(Nr, 2) = 6
End Select
Cells(Nr, 1) = AlleBlätter(Nr).Name
Cells(Nr, 3).Value = AlleBlätter(Nr).Visible
AlleBlätter(Nr).Visible = True
Next Nr
' Blattnamen sortieren
Liste.UsedRange.Sort Key1:=Liste.[B1], Key2:=Liste.[A1], Header:=xlNo
' Blattreihenfolge sortieren
For Nr = Liste.UsedRange.Rows.Count - 1 To 1 Step -1
With AlleBlätter(Liste.Cells(Nr, 1).Value)
.Move before:=AlleBlätter(1)
.Visible = Liste.Cells(Nr, 3).Value
End With
Next Nr
Liste.Parent.Close False
End Sub
Anzeige