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
ordne ich die Einträge auf T2, Spalte B:D und damit auch die Einträge 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