Sortierproblem
13.10.2015 20:38:09
Rainer
habe in einer Listbox zur Sortierung folgenden Code:
iColL = GetLastColumn()
iMax = WorksheetFunction.Match("Auswertung", Columns(9), 0)
Columns("IV").ClearContents
Range(Cells(1, 13), Cells(1, iColL)).EntireColumn.Hidden = True
Range(Cells(iMax, 13), Cells(iMax, iColL)).Copy
Range("IV1").PasteSpecial xlPasteValues, , , True
Range("IV1").CurrentRegion.Sort key1:=Range("IV1"), order1:=xlDescending, Header:=xlNo
For iRow = 1 To WorksheetFunction.CountA(Columns("IV"))
If Cells(iRow, 256).Value 0 Then
If WorksheetFunction.CountIf(Range(Cells(WorksheetFunction.CountA(Columns(256)), 256), _
_
Cells(iRow, 256)), Cells(iRow, 256).Value)
Dieser funktioniert allerdings nur, solange wenige Spalten befüllt sind einwandfrei.
Sowie ich mehrere Spalten (Produkte) befüllt habe ist die Sortierung falsch, sowie ich Zeilen ausgeblendet habe.
Gibt es da eine Lösung?
In der Tabelle https://www.herber.de/bbs/user/100755.xls
einfach mal Selektion (Spalte B) rausnehmen, dann funktioniert die Sortierung.