Uitfilteren 1 data regel gaat niet

[mulderm]

Hallo,

Ik heb een Excel- bestand die de data in de regels uitfiltert en in werkbladen
zet.
Probleem is dat als er 1 regel data is deze niet uitgefiltert wordt.
Wie kan deze VBA-code aanpassen?

Groeten,

mulderm

 

[Wigi]

http://www.worksheet.nl/forumexcel/showthread.php?t=51682

 

[dirktimm]

Uitfilteren

Of:

http://office.webforums.nl/forum/viewtopic.php?t=23987

Dirk

 

[mulderm]

Antwoord gekregen van een ander forum:
Het probleem zat in het sorteren
Tussengevoegd:

If ListRange.Count > 1 Then
With ListRange
.Sort Key1:=.Cells(1), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End With
End If

mulderm