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. Mit Formel sortieren, weitere Spalte mitnehmen

    in Microsoft Excel Hilfe
    Mit Formel sortieren, weitere Spalte mitnehmen: Hallo zusammen, vielleicht kann mir hier jemand helfen. Meine bisherige Recherche hat leider nichts ergeben. Ich habe ein Tabellenblatt mit ca. 500 Zeilen und 20 Spalten. Um die Übersichtlichkeit...
  3. Formel Problem gleicher Grund

    in Microsoft Excel Hilfe
    Formel Problem gleicher Grund: Hallo Zusammen, in der Datei im Anhang werden Top 5 Störungsgründe aus der Tabelle auf der linken Seite in die Tabelle auf der rechten Seite angezeigt. Sie werden absteigend nach der Minutenzahl...
  4. Formel für Auflistung nach bestimmten Kriterium

    in Microsoft Excel Hilfe
    Formel für Auflistung nach bestimmten Kriterium: Hi zusammen, ich hänge seit Wochen an einer Formel und komme nicht weiter. Ich habe 3 Key-Schlüssel in Spalte A, B und C. In Spalte A sind immer die "Haupt-Key-Schlüssel" und in Spalte B und C...
  5. Tabelle automatisch mit Daten aus der Tabelle erstellen

    in Microsoft Excel Hilfe
    Tabelle automatisch mit Daten aus der Tabelle erstellen: Hallo an euch Excel-Profis, ich benötige folgende Hilfe. Ich erstelle gerade eine Exceldatei mit 38 Tabellen in denen drei Spalten mit personenbezogenen Daten eingetragen werden...
  6. Feldauswahl - neu Spalte mit Datumauswahl

    in Microsoft Outlook Hilfe
    Feldauswahl - neu Spalte mit Datumauswahl: Hallo, ich habe in Outlook 365 eine Aufgabenliste mit benutzerdefinierten Spalten angelegt. Nun möchte ich eine Spalte mit der selben Funktion wie die vorhandene Spalte Startdatum hinzufügen. Bei...
  7. Formel Auf-/Abrunden

    in Microsoft Excel Hilfe
    Formel Auf-/Abrunden: Hallo zusammen, ich bin gerade etwas am verzweifeln weil ich nicht weiter komme. Folgendes ist mein Problem: Der Wert in Zelle A1 wird immer durch 700 geteilt. In Zelle A1 steht z. B. die Zahl...
  8. Feiertagsstunden Berechnen

    in Microsoft Excel Hilfe
    Feiertagsstunden Berechnen: Hallo ich habe eine Problem ich habe einen Dienstplan der wie folgt aufgebaut ist C3:AG3 Datum C4:AG4 Tag C5:AG5 Dienst T= Tag 6:00-18:00 , N=Nacht 18:00-6:00 nun will ich anhand davon berechnen...
  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