ListBox und ABC
29.11.2017 09:58:10
Rolf
auf Tabelle1 habe ich eine Listbox mit ca. 300 Namen, von denen 20 direkt in der Listbox sichtbar sind.
Die Namen stammen aus Tabelle2, Spalte B.
Mit
Sub nach_ABC()
Sheets("T2").Activate
Sheets("T2").Range("B2:D300").Select
ActiveWorkbook.Worksheets("T2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("T2").Sort.SortFields.Add Key:=Range("B2:B300"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("T2").Sort
.SetRange Range("B2:D300")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("T1").Activate
End Sub
in der Listbox auf T1.
Alles funktioniert bestens.
Nur wird bei jedem Klick auf "Ordnen" die Listbox auf Tabelle1 um genau einen Namen kleinen.
Erst, wenn nur noch 8 Namen zu sehen sind, ändern sich die Maße der Listbox nicht mehr.
Gibt es dafür eine Erklärung?
Schöne Grüße
Rolf
Anzeige