Office: Formel/Anweisung/Makro kürzen / optimieren da Excel ruckelt

Hallo zusammen,
hat jemand eine Vorstellung, wie man folgende Anweisung optimieren könnte, damit Excel bei Ausführung nicht so "rumzappelt"?

Sie steht in einer Tabelle und veranlasst, bei Neueintrag via UserForm, den Gesamtpreis in Spalte G zu addieren und die Spalten B:G nach B zu sortieren; jedoch immer nur die Zeilen ab Spalte 10, welche auch beschrieben wurden.

Anweisung funzt prima, jedoch besteht vielleicht Optimierungsbedarf, da Excel ziemlich dran "rumzuckelt und ruckelt".


Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False 'XXXXXXXXXXXXXXXX

If WorksheetFunction.CountA(Range("E10:E65536")) > 0 Then
Dim a As Long
a = [E65536].End(xlUp).Row + 1

Cells(a + 2, 6) = "Gesamt-Ausgaben:"
'Eigenschaften hinzufügen
Cells(a + 2, 6).Font.Bold = True

Cells(a + 2, 7).Formula = "=sum(G10:G" & a - 1 & ")"
'Eigenschaften hinzufügen
Cells(a + 2, 7).Font.Bold = True

'LÖSCHEN VON VORGÄNGERZELLE SOWIE EIGENSCHAFTEN:

Cells(a + 1, 6) = ""
'Eigenschaften zurücksetzen
Cells(a + 1, 6).Font.Bold = False

Cells(a + 1, 7) = ""
'Eigenschaften zurücksetzen
Cells(a + 1, 7).Font.Bold = False

Cells(a + 3, 6) = ""
'Eigenschaften zurücksetzen
Cells(a + 3, 6).Font.Bold = False

Cells(a + 3, 7) = ""
'Eigenschaften zurücksetzen
Cells(a + 3, 7).Font.Bold = False

Range("B10:G" & a - 1 & "").Select
Selection.Sort Key1:=Range("B10:B" & a - 1 & ""), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B9").Select
End If


Application.EnableEvents = True 'XXXXXXXXXXXXXXXX
End Sub

Bin dankbar für jeden Tip Eurerseits!

Gruß timi

 

Hallo!

Das "Zuckeln" und "Ruckeln" kann eigentlich kaum an dem Makro selbst liegen, denn so waaahnsinnig viel passiert ja eigentlich gar nicht...
Wahrscheinlich leigt es eher an den sonstigen Formeln (oder Makros???), die sonst so laufen. Probier doch mal, die automatische Berechnung temporär abzuschalten; vielleicht auch die Bildschirmaktualisierung:

Private Sub Worksheet...
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
...
'...DeinSonstigerCode
...
Application.Calculation =xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Vielleicht hilft's...

 

Vieeeeelen Dank!

Vieeeeel besser!

Ruckeln und Zuckeln kaum mehr merkbar!!!!

Gruß
timi