Excel extrem langsam durch VBA

Hallo!
Mein Excel ist leider extrem langsam, vermutlich durch eine komplizierte VBA Programmierung - diese lautet wie folgt:
Tabelle 1:


Private Sub Worksheet_Deactivate()
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Ereignisse").ListObjects("Ereignisse").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Ereignisse").ListObjects("Ereignisse").Sort. _
SortFields.Add Key:=Range("Ereignisse[Name]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Ereignisse").ListObjects("Ereignisse").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
End Sub

Tabelle 2:


Private Sub Worksheet_Deactivate()
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Basisdaten").ListObjects("Basisdaten").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Basisdaten").ListObjects("Basisdaten").Sort. _
SortFields.Add Key:=Range("Basisdaten[Nachname]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Basisdaten").ListObjects("Basisdaten").Sort. _
SortFields.Add Key:=Range("Basisdaten[Vorname]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Basisdaten").ListObjects("Basisdaten").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
End Sub

Hat jemand eine Idee wie ich diesen Code vereinfachen könnte? Oder braucht ihr mehr Infos? Vielen Dank im Voraus!
Sascha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Deactivate() 'in Tabelle1 GetMoreSpeed (True) With Worksheets("Ereignisse").ListObjects("Ereignisse") .Sort.SortFields.Clear .Sort.SortFields.Add Key:=.Range("Ereignisse[Name]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal .Sort.Header = xlYes .Sort.MatchCase = False .Sort.Orientation = xlTopToBottom .Sort.SortMethod = xlPinYin .Sort.Apply End With GetMoreSpeed (False) End Sub Private Sub Worksheet_Deactivate() 'in Tabelle2 GetMoreSpeed (True) With Worksheets("Basisdaten").ListObjects("Basisdaten") .Sort.SortFields.Clear .Sort.Add Key:=.Range("Basisdaten[Nachname]"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal .Sort.SortFields.Add Key:=.Range("Basisdaten[Vorname]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal .Sort.Header = xlYes .Sort.MatchCase = False .Sort.Orientation = xlTopToBottom .Sort.SortMethod = xlPinYin .Sort.Apply End With GetMoreSpeed (False) End Sub 'das hier in ein Modul kopieren! Public Static Sub GetMoreSpeed(Optional ByVal Modus As Boolean = True) Dim intCalculation As Integer If Modus = True Then intCalculation = Application.Calculation With Application .ScreenUpdating = Not Modus .EnableEvents = Not Modus .Calculation = IIf(Modus = True, xlManual, intCalculation) .Cursor = IIf(Modus = True, 2, -4143) End With End Sub

Sub GetMoreSpeed(Optional ByVal Modus As Boolean = True) Dim intCalculation As Integer If Modus = True Then intCalculation = Application.Calculation With Application .ScreenUpdating = Not Modus .EnableEvents = Not Modus .Calculation = IIf(Modus = True, xlManual, intCalculation) .Cursor = IIf(Modus = True, 2, -4143) End With End Sub

Hallo Luc,
deine Exkursion in die Aussagenlogik ist hier vielleicht nicht zielführend, sondern eher ablenkend? Aber du hast recht, "mein" Code (ich erinnere mich nicht mehr, von wem ich den damals geklaut habe, darum ist es jetzt meiner :-) ) ist 7 Zeichen und damit 7 Byte zu lang. Ich werde das sofort ändern, um Festplattenplatz zu sparen :-)
Hallo Sascha,
während ein Makro läuft braucht der User üblicherweise nichts zu machen. Darum kann man auch die Bildschirmaktualisierung und den Cursor abschalten.
Manche Makros machen viele viele kleine Änderungen, die dann jeweils eine Neuberechnung auslösen. Da der User während der Makrolaufzeit aber eh nicht eingreift, reicht (meistens!!!) eine einzelne Neuberechnung am Makroende. Gleiches gilt für die Events.
Ergo: man schaltet Events, Screenupdating, Neuberechnung und den Cursor einfach ab, während das Makro läuft. Damit man den Code dazu nicht jedesmal neu schreiben muss, ist er in eine eigene Sub ausgelagert (so vergisst man auch nichts).
Die Zeile (für Luc gekürzt!)
If Modus Then intCalculation = Application.Calculation
Ist nur dafür da, falls die automatischen Berechnungen beim Makrostart bereits abgeschaltet waren, dann sollen sie nicht von selbst angestellt werden.
Dieses "Beschleunigungs"-Makro stelle ich eigentlich vor jedes Makro, dass mehr als 5 Operationen ausführt. Im besten Fall läuft es dann schneller, im schlechtesten Fall hat es auch nicht geschadet.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread