Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub SortAll()
   Dim rng As Range
   Dim lRowL As Long, lRow As Long
   Application.ScreenUpdating = False
   Set rng = Rows(1)
   lRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For lRow = 1 To lRowL
      If Rows(lRow).Hidden = True Then
         Set rng = Union(rng, Rows(lRow))
      End If
   Next lRow
   rng.EntireRow.Hidden = False
   Range("A1").CurrentRegion.Sort key1:=Range("A2"), _
      order1:=xlAscending, header:=xlYes
   rng.EntireRow.Hidden = True
   Rows(1).Hidden = False
   Application.ScreenUpdating = True
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Sortieren