Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Sortieren ein- und ausgeblendeter Zeilen

Gruppe

Sortieren

Problem

Im Normalmodus werden beim Sortieren ausgeblendete Zeilen nicht mitsortiert. Wie kann ich das umgehen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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