Gruppe
Allgemein
Problem
Im Normalmodus werden beim Sortieren ausgeblendete Zeilen nicht mitsortiert. Wie kann ich das umgehen?
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