Gruppe
Allgemein
Bereich
Sortieren
Thema
Sortieren ein- und ausgeblendeter Zeilen
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