Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro dauert sehr lange

Forumthread: Makro dauert sehr lange

Makro dauert sehr lange
25.12.2003 20:20:46
Uwe
Hallo Zusammen
und ein Frohes Weihnachtsfest wünsche ich.

Ich habe hier per VBA ein Makro versucht zu entwerfen.
Die Auswertungen erfolgen richtig. Leider läuft es in
der Form so ca. 15 Minuten. Was aus meiner Sicht sehr
lang erscheint, oder????

Würde mich riesig freuen, wenn mir jemand einen anderen
Vorschlag machen könnte, wie ich dieses Makro beschleunige.

Außerdem muss ich dieses Makro auf mehrere Tabellen erweitern.
Hier bräuchte ich auf jeden Fall viel Hilfe.

Das Makro soll folgendes bewirken:

In einer Tabelle sind alle Bruttolohnarten von allen Mitarbeitern
von mehreren Monaten oder Jahren importiert worden. Diese muss
ich nun sortieren und anschließend pro Lohnart und pro Mitarbeiter
summieren.

Ich hoffe ich konnte mich verständlich ausdrücken und würde mich sehr
über eure Hilfe freuen.

Leider ist es nicht möglich diese Tabellen zur Verfügung zu stellen.
Datenschutz...

Bis bald

Uwe

Hier das Makro:

Dim summe As Single, bereich As range, zelle As range, wsszelle, j As Date

j = Now
n = 6 'Zeilenzähler für Pers-Nr. in SozialplanSumme Tabelle
d = 3 'Spaltenzähler für LOA
summe = 0
Set wss = ThisWorkbook.Worksheets("SozialplanSumme")
Set w022 = ThisWorkbook.Worksheets("Mandant022")

'Set bereich = w022.range("A1:A5000")
wsszelle = wss.UsedRange.Rows.Count
wsszelle = wsszelle + 2
wssspalte = wss.UsedRange.Columns.Count
wssspalte = wssspalte + 2
Set bereich = w022.range("A1: A5000")
Do Until d = wssspalte
Do Until n = wsszelle
For Each zelle In bereich
If zelle.Value = wss.range("A" & n).Value And _
zelle.Offset(0, 9) = wss.Cells(2, d) Then
summe = summe + zelle.Offset(0, 11).Value
Else
End If
Next zelle
wss.Cells(n, d) = summe
n = n + 1
summe = 0
Loop
d = d + 1
n = 6
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Debug.Print Format(Now - j, "hh:mm:ss")
End Sub
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro dauert sehr lange
25.12.2003 21:28:35
DieterB
Hallo Uwe,

wenn ich es richtig sehe, sind das viele, viele daten.
Wenn Du für mehrere Mitarbeiter und mehrere Jahre eine Tabelle auswertest,
monatsweise, dann braucht das seine Zeit.
Je mehr Daten du hast, desto länger dauert das.
ich denke 15 min ist recht realistisch.

Beispiel: 1Ma = 12 Monate bei 1 Jahr Betriebszugehörigkeit.
Jett hast Du aber 10 MA, jeder ist 3 Jahre dabei = 360 Monate, die ausgewerte werden wollen.

Gruß

DieterB
Anzeige
Keine Lösung,... aber
25.12.2003 21:57:44
Ramses
Hallo

Ich weiss nicht wie viele Spalten du tatsächlich prüfen musst

wssspalte = wss.UsedRange.Columns.Count

Aber aus der Anweisung

summe + zelle.Offset(0, 11).Value

wird ersichtlich, dass es mindestens 11 Spalten sind.
In deinem "Set bereich = w022.range("A1: A5000")" wird ersichtlich dass es mindestens 5000 Zeilen sind.
Das macht nach Adam Zwerg und Eva Riese mal mindestens 55'000 Zellen die geprüft werden "If ... And..."
Das braucht Zeit.
Wenn du nur einige wenige Spalten hast, die du prüfen musst, würde ich auf die äussere Schleife verzichten.

Alternativ würde ich mal die Funktion "SUMMENPRODUKT()" ins Auge fassen oder in die entsprechende Zelle mit dem Makro einfach eine WENN-Formel einfügen lassen.

Gruss Rainer
Anzeige
AW: Keine Lösung,... aber
26.12.2003 14:56:19
Uwe
Hallo Zusammen und vielen Dank für eure Antworten.

Hm, wenn das so ist, dann muss ich mir die Zeit für die
Berechnung wohl nehmen. Auf jeden fall besser, als
Stundenlang es selbst zu erfassen. Grins.

Den angesprochenen Range bereich (A1:A5000) hatte ich
versucht auf das tatsächle Zeilenende zu setzen,
funktionierte aber nicht. Hab ich auch nicht verstanden.

Wäre nur noch klasse, wenn mir jemand helfen könnte,
dieses Makro über mehrere Tabellen laufen zu lassen.
Habe hiermit große Schwierigkeiten.

Vielen Dank noch mal und einen schönen Feiertag

Viele Grüße

Uwe
Anzeige
AW: Makro dauert sehr lange
26.12.2003 22:39:46
Reinhard
Hi Uwe,
hebe es nicht getestet, aber propier doch mal 

Sub uwe()
Dim summe As Single
Dim wssZeile As Integer
Dim wssSpalte As Integer
Dim j As Date
Dim n As Integer
Dim d As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
j = Now
summe = 0
Set wss = ThisWorkbook.Worksheets("SozialplanSumme")
Set w022 = ThisWorkbook.Worksheets("Mandant022")
wssZeile = wss.Range("A65536").End(xlUp).Row + 2
wssSpalte = wss.Range("IV1").End(xlLeft).Column + 2
For d = 3 To wssSpalte 'Zeilenzähler für Pers-Nr. in SozialplanSumme Tabelle
For n = 6 To wssZeile 'Spaltenzähler für LOA
If w022.Cells(n, d).Value = wss.Cells(n, 1).Value And _
w022.Cells(n, d + 9) = wss.Cells(2, d) Then _
summe = summe + w022.Cells(n, d + 11).Value
wss.Cells(n, d) = summe
summe = 0
Next n
Next d
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Debug.Print Format(Now - j, "hh:mm:ss")
End Sub

Gruß
Reinhard
Anzeige
Hallo Reinhard
26.12.2003 23:11:08
Uwe
Hallo Zusammen,
hallo Reinhard,

Find ich super, das Du Dich damit beschäftigt hast.
Habe gerade Dein Makro getestet, aber leider erfolgt keine Berechnung.
Leider bis jetzt auch noch nicht das Problem erkannt.

Viele Grüße
Uwe
AW: Hallo Reinhard
27.12.2003 14:27:22
Reinhard
Hallo Uwe,
dann probier mal dieses, da wird die Berechnung erzwungen durch calculate:

Sub uwe()
Dim summe As Single
Dim wssZeile As Integer
Dim wssSpalte As Integer
Dim j As Date
Dim n As Integer
Dim d As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
j = Now
summe = 0
Set wss = ThisWorkbook.Worksheets("SozialplanSumme")
Set w022 = ThisWorkbook.Worksheets("Mandant022")
wssZeile = wss.Range("A65536").End(xlUp).Row + 2
wssSpalte = wss.Range("IV1").End(xlLeft).Column + 2
For d = 3 To wssSpalte 'Zeilenzähler für Pers-Nr. in SozialplanSumme Tabelle
For n = 6 To wssZeile 'Spaltenzähler für LOA
If w022.Cells(n, d).Value = wss.Cells(n, 1).Value And _
w022.Cells(n, d + 9) = wss.Cells(2, d) Then _
summe = summe + w022.Cells(n, d + 11).Value
wss.Cells(n, d) = summe
summe = 0
Next n
Next d
ActiveSheet.Calculate
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Debug.Print Format(Now - j, "hh:mm:ss")
End Sub

Anzeige
Vielen Dank Reinhard
28.12.2003 00:55:55
Uwe
und noch einen guten Rutsch ins neue Jahr.

Viele Grüße Uwe
;
Anzeige

Infobox / Tutorial

Makrooptimierung für Excel: So beschleunigst du dein VBA-Skript

Schritt-für-Schritt-Anleitung

  1. Makro-Zeit optimieren: Verwende Application.ScreenUpdating = False und Application.Calculation = xlCalculationManual, um die Berechnung und das Aktualisieren des Bildschirms während der Ausführung des Makros zu deaktivieren.

    Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

  2. Bereich dynamisch setzen: Anstatt einen festen Bereich wie A1:A5000 zu verwenden, setze den Bereich dynamisch auf die tatsächliche Anzahl der Zeilen in der Tabelle.

    wssZeile = wss.Range("A65536").End(xlUp).Row + 2

  3. Schleifen optimieren: Reduziere die Anzahl der Schleifen, indem du nur die notwendigen Spalten und Zeilen prüfst. Dies spart Zeit bei großen Datenmengen.

    For d = 3 To wssSpalte
   For n = 6 To wssZeile

  4. Berechnung erzwingen: Verwende ActiveSheet.Calculate, um sicherzustellen, dass die Berechnungen nach der Ausführung des Makros auch tatsächlich durchgeführt werden.

    ActiveSheet.Calculate

  5. Makro ausführen: Führe das Makro aus und beobachte die Zeitersparnis, indem du die Berechnungszeit mit Debug.Print protokollierst.

Häufige Fehler und Lösungen

  • Fehler: Lange Ausführungszeiten
    Lösung: Überprüfe die Anzahl der Datenzeilen und -spalten. Je mehr Daten, desto länger dauert die Berechnung. Nutze die oben genannten Tipps zur Optimierung.

  • Fehler: Keine Berechnung nach Ausführung
    Lösung: Stelle sicher, dass die Berechnung mit ActiveSheet.Calculate am Ende des Makros erzwungen wird.

  • Fehler: Falsche Zellbezüge
    Lösung: Achte darauf, dass die Zellbezüge korrekt sind und dass du die richtigen Spalten und Zeilen in deinem VBA-Code verwendest.

Alternative Methoden

  • SUMMENPRODUKT(): Anstelle eines komplexen Makros kannst du in Excel die Funktion SUMMENPRODUKT() verwenden, um Summen basierend auf mehreren Kriterien zu berechnen. Dies kann oft schneller sein, als die Daten mit VBA zu iterieren.

  • WENN-Formel: Eine einfache WENN-Formel in der Zelle kann ebenfalls eine Alternative sein, um Bedingungen zu prüfen und Summen zu bilden.

Praktische Beispiele

Hier ist ein Beispiel, wie du dein Makro anpassen kannst:

Sub OptimiertesMakro()
    Dim summe As Single
    Dim wssZeile As Integer
    Dim wssSpalte As Integer
    Dim j As Date
    Dim n As Integer
    Dim d As Integer

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    j = Now
    summe = 0

    Set wss = ThisWorkbook.Worksheets("SozialplanSumme")
    Set w022 = ThisWorkbook.Worksheets("Mandant022")
    wssZeile = wss.Range("A65536").End(xlUp).Row + 2
    wssSpalte = wss.Range("IV1").End(xlLeft).Column + 2

    For d = 3 To wssSpalte
        For n = 6 To wssZeile
            If w022.Cells(n, d).Value = wss.Cells(n, 1).Value And _
               w022.Cells(n, d + 9) = wss.Cells(2, d) Then
                summe = summe + w022.Cells(n, d + 11).Value
            End If
            wss.Cells(n, d) = summe
            summe = 0
        Next n
    Next d

    ActiveSheet.Calculate
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Debug.Print Format(Now - j, "hh:mm:ss")
End Sub

Tipps für Profis

  • Vermeide unnötige Berechnungen: Wenn du nur bestimmte Zellen ändern musst, führe Berechnungen nur für diese Zellen durch.

  • Verwende Arrays: Wenn du große Datenmengen bearbeitest, kann es effizienter sein, die Daten in ein Array zu laden, die Berechnungen durchzuführen und die Ergebnisse dann zurück in die Tabelle zu schreiben.

  • Profiling des Makros: Teste die Ausführungszeit verschiedener Abschnitte deines Makros, um Engpässe zu identifizieren.

FAQ: Häufige Fragen

1. Wie lange sollte ein Makro maximal dauern?
Ein Makro sollte idealerweise unter 1-2 Minuten laufen. Wenn es länger dauert, ist es ratsam, die Effizienz zu überprüfen.

2. Kann ich ein Makro auf mehrere Arbeitsblätter anwenden?
Ja, du kannst dein Makro so erweitern, dass es über mehrere Tabellen iteriert, indem du die Schleifen entsprechend anpasst.

3. Was kann ich tun, wenn mein Makro nicht reagiert?
Prüfe, ob es in einer Endlosschleife steckt oder ob es auf eine große Datenmenge wartet. Verwende Application.ScreenUpdating = False, um dies zu verhindern.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige