Userform1 Sortieren
19.10.2021 06:51:46
Oraculix
In meiner Userform1 kann ich Wählen welche Spalte ich sortieren möchte was auch funktioniert.
Nur leider reichen meine Kenntnisse nicht die Sortierung so zu Programieren das die Userform1 nicht immer neu gestartet werden muss.
Das Problem:
Das Sortieren der Spaten dauert zu lange bei 3000 Einträgen und die Userform1 muss immer neu gestartet werden sonst wird sie nicht aktualisiert. Die Sortierung wird nur Angezeigt wenn ich die Userform schließe und wieder öffne.
Frage :
Wie kann ich das schließen und wieder öffnen umgehen damit es nicht so lange dauert das Sortieren?
Bzw. wie kann ich den Code Beschleunigen?
https://www.herber.de/bbs/user/148684.xlsm
'Sortiert Spalte B A-Z
Private Sub CommandButton17_Click()
Application.EnableEvents = False
Application.Goto Reference:="FilmeAnsehen"
ActiveWorkbook.Worksheets("FilmeAnsehen").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FilmeAnsehen").Sort.SortFields.Add2 Key:=Range( _
"B2:B5010"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("FilmeAnsehen").Sort
.SetRange Range("A1:C5010")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B1").Select
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Range("B2").Select
Repaint
Unload Me
UserForm1.Show
Application.EnableEvents = True
End Sub
Oraculix