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

Helfe beim Thema Formel/Anweisung/Makro kürzen / optimieren da Excel ruckelt in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, hat jemand eine Vorstellung, wie man folgende Anweisung optimieren könnte, damit Excel bei Ausführung nicht so "rumzappelt"? Sie... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von timi, 19. Februar 2009.

  1. timi Erfahrener User

    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
     
  2. schatzi Super-Moderator
    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...
     
    schatzi, 19. Februar 2009
    #2
  3. timi Erfahrener User
    Vieeeeelen Dank!

    Vieeeeel besser!

    Ruckeln und Zuckeln kaum mehr merkbar!!!!

    Gruß
    timi
     
Thema:

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

Die Seite wird geladen...
  1. Formel/Anweisung/Makro kürzen / optimieren da Excel ruckelt - Similar Threads - Formel Anweisung Makro

  2. Fehler in =WENN Formel

    in Microsoft Excel Hilfe
    Fehler in =WENN Formel: Hallo Ich habe Excel 2016 und will die Kürzel in einer Spalte in einer zweiten mit Namen anzeigen lassen mit der =Wenn Formel. Ich habe Kürzel wie L2 oder LM etc. Ich geben die Formel wie...
  3. Formel in Bereich einfügen

    in Microsoft Excel Hilfe
    Formel in Bereich einfügen: Hallo alle zusammen, kurze frage und bitte, bin wie man sicher unschwer erkennen kann eher Einsteiger als Profi. Ich würde diesen Code gern etwas Schneller machen. Range("A5:M5").Select...
  4. Welche Formel kann das?

    in Microsoft Excel Hilfe
    Welche Formel kann das?: Hallo liebe Community, ich hab da mal ein kleines, großes Problem. Anbei findet ihr meine Tabelle sowie in Spalte D das was die Formel, die ich nicht kenn, in Spalte E berechnen soll. Die...
  5. Formel gleich aber andere Ergebnisse?

    in Microsoft Excel Hilfe
    Formel gleich aber andere Ergebnisse?: Hallo zusammen, ich habe eine Formel definiert, die Werte aus bestimmten Spalten unter folgende Bedingungen ausgibt: wenn der Monat vom Datenstand kleiner als oder gleich Buchungsperiode ist,...
  6. Wenn Formel mit Oder ?

    in Microsoft Excel Hilfe
    Wenn Formel mit Oder ?: Hallo, ich hab wieder mal ein Thema ... Wenn ich in Tabelle "Angebot neu" eine der 5 Edition-Farben auswähle, soll in Zelle A27 der Text von Tabelle "Daten neu L12" erscheinen. Die Auswahl für...
  7. Wenn Dann Sonst Formel

    in Microsoft Excel Hilfe
    Wenn Dann Sonst Formel: Hallo, ich bin an einem Punkt angelangt wo ich nicht mehr weiter weiß. Ich möchte ein Angebotssystem erstellen bei dem ich diverse Optionen aus einer Liste auswählen (Spalte A). Wenn ich dann in...
  8. Sverweis / Wenn,Dann Formel

    in Microsoft Excel Hilfe
    Sverweis / Wenn,Dann Formel: Hallo, ich benötige Hilfe bei der Erstellung einer Liste. PLER_1 ist die Ursprungsliste. Ich bräuchte eine Formel wie ich die Nummer aus Spalte 1 (blaue Pfeile) oder Spalte 2 (rote Pfeile) in...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden