Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
28.04.2024 14:18:05
Einfügen ohne Select
28.04.2024 14:00:34
Formel fehler in der Berechnung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Fehler nicht genügend Stapelspeicher

VBA Fehler nicht genügend Stapelspeicher
28.02.2022 13:48:34
Ingo
Hallo zusammen
Ich habe mir für ein einzelnes Tabellenblatt in meiner Exceldatei folgenden 3-teiligen Code geschrieben.
Grob gesagt, geht es dabei um Neuberechnungen in drei Bereichen des Tabellenblattes in Abhängigkeit von (geänderten) Inhalten anderer Zellen des selben Tabellenblattes. Wobei die Neuberechnung im letzten Teil auf Änderung der im mittleren Teil berechneten Zellen basieren und durch Verwendung derselben Zellen aus dem mittleren Teil geschehen soll.
Mein Code funktioniert einwandfrei, wenn ich jeweils den 1. Teil entweder zusammen mit dem mittleren Teil oder zusammen mit dem letzten Teil laufen lasse.
Sobald ich aber alle 3 Teile zusammen laufen lasse, erhalte ich den Fehler Nr. 28 nicht genügend Stapelspeicher.
Anhand anderer Beiträge hier im Forum verstehe ich auch ungefähr, wo mein Problem zu liegen scheint. Offensichtlich ergibt sich aus dem Ablauf vom mittleren zusammen mit dem letzten Teil meines Codes eine Art Dauerschleife, die den Stapelspeicher volllaufen lässt (?).
Ich kriege aber, trotz Berücksichtigung der Erklärungen in anderen auffindbaren Forumsbeiträgen, die Lösung des Problems in meinem eigenen Code einfach nicht hin.
Kann mir da jemand von euch konkret weiterhelfen?
Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
'-----TEIL 1 ------------------
Dim KeyCellsA As Range
Set KeyCellsA = Range("$D$22:$D$222")
If Not Application.Intersect(KeyCellsA, Range(Target.Address)) _
Is Nothing Then
Sheets("Umsatzplanung").Select
Application.Calculation = xlCalculationManual
Range("$F22:$J$222").ClearContents
Dim iRowA As Integer
iRowA = Cells(Rows.Count, 4).End(xlUp).Row
ActiveSheet.Range("$F22:F" & iRowA).FormulaLocal =_
"=WENN(Umsatzplanung!$D22="""";"""";SVERWEIS(Umsatzplanung!$D22;Datenüberprüfung!X:AC;4;0))"
ActiveSheet.Range("$H22:H" & iRowA).FormulaLocal =_
"=WENN(Umsatzplanung!$D22="""";"""";SVERWEIS(Umsatzplanung!$D22;Datenüberprüfung!X:AC;5;0))"
ActiveSheet.Range("$I22:I" & iRowA).FormulaLocal =_
"=WENN(Umsatzplanung!$D22="""";"""";SVERWEIS(Umsatzplanung!$D22;Datenüberprüfung!X:AC;6;0))"
Application.Calculation = xlAutomatic
Application.DisplayAlerts = False
ActiveSheet.Range("F22:I" & iRowA).Copy
ActiveSheet.Range("F22").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.DisplayAlerts = True
Range("D" & iRowA).Select
End If
'-----TEIL 2------------------
Dim KeyCellsB As Range
Set KeyCellsB = Range("$M$9:$Q$16", "$L$22:$L$222")
If Not Application.Intersect(KeyCellsB, Range(Target.Address)) _
Is Nothing Then
Sheets("Umsatzplanung").Select
Application.Calculation = xlCalculationManual
Range("$T22:$AC$222").ClearContents
Dim iRowB As Integer
iRowB = Cells(Rows.Count, 12).End(xlUp).Row
ActiveSheet.Range("$T22:T" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;T$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;T$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;T$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;T$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;T$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;T$19;$T$16:$AC$16);""fehler""))))))"
ActiveSheet.Range("$U22:U" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;U$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;U$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;U$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;U$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;U$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;U$19;$T$16:$AC$16);""fehler""))))))"
ActiveSheet.Range("$V22:V" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;V$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;V$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;V$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;V$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;V$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;V$19;$T$16:$AC$16);""fehler""))))))"
ActiveSheet.Range("$W22:W" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;W$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;W$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;W$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;W$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;W$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;W$19;$T$16:$AC$16);""fehler""))))))"
ActiveSheet.Range("$X22:X" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;X$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;X$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;X$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;X$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;X$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;X$19;$T$16:$AC$16);""fehler""))))))"
ActiveSheet.Range("$Y22:Y" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;Y$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;Y$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;Y$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;Y$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;Y$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;Y$19;$T$16:$AC$16);""fehler""))))))"
ActiveSheet.Range("$Z22:Z" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;Z$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;Z$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;Z$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;Z$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;Z$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;Z$19;$T$16:$AC$16);""fehler""))))))"
ActiveSheet.Range("$AA22:AA" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;AA$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;AA$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;AA$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;AA$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;AA$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;AA$19;$T$16:$AC$16);""fehler""))))))"
ActiveSheet.Range("$AB22:AB" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;AB$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;AB$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;AB$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;AB$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;AB$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;AB$19;$T$16:$AC$16);""fehler""))))))"
ActiveSheet.Range("$AC22:AC" & iRowB).FormulaLocal =_
"=WENN($A22=$S$11;SUMMEWENN($T$5:$AC$5;AC$19;$T$11:$AC$11);WENN($A22=$S$12;_
SUMMEWENN($T$5:$AC$5;AC$19;$T$12:$AC$12);WENN($A22=$S$13;_
SUMMEWENN($T$5:$AC$5;AC$19;$T$13:$AC$13);WENN($A22=$S$14;_
SUMMEWENN($T$5:$AC$5;AC$19;$T$14:$AC$14);WENN($A22=$S$15;_
SUMMEWENN($T$5:$AC$5;AC$19;$T$15:$AC$15);WENN($A22=$S$16;_
SUMMEWENN($T$5:$AC$5;AC$19;$T$16:$AC$16);""fehler""))))))"
Application.Calculation = xlAutomatic
Application.DisplayAlerts = False
ActiveSheet.Range("T22:AC" & iRowB).Copy
ActiveSheet.Range("T22").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.DisplayAlerts = True
Range("M" & iRowB).Select
End If
'-----TEIL 3------------------
Dim KeyCellsC As Range
Set KeyCellsC = Range("$T$22:$AC$222")
' >>> das sind die berechneten Zellen aus Teil 2
If Not Application.Intersect(KeyCellsC, Range(Target.Address)) _
Is Nothing Then
Sheets("Umsatzplanung").Select
Application.Calculation = xlCalculationManual
Range("$M22:$M$222").ClearContents
Dim iRowC As Integer
iRowC = Cells(Rows.Count, 12).End(xlUp).Row
ActiveSheet.Range("$M22:M" & iRowC).FormulaLocal =_
"=WENN(L22="""";"""";(((((L22*(1-T22)-U22)*(1-V22)-W22)*(1-X22)-Y22)*(1-Z22)-AA22)*(1-AB22)-AC22))"
 '>>> Berechnung mittels berechnete Zellen aus Teil 2
Application.Calculation = xlAutomatic
Application.DisplayAlerts = False
ActiveSheet.Range("M22:M" & iRowC).Copy
ActiveSheet.Range("M22").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.DisplayAlerts = True
Range("M" & iRowC).Select
End If
Application.ScreenUpdating = True
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Fehler nicht genügend Stapelspeicher
28.02.2022 13:57:17
Rudi
Hallo,
schalte die Eventverarbeitung am Anfang aus und am Ende wieder ein.
Gruß
Rudi
AW: VBA Fehler nicht genügend Stapelspeicher
28.02.2022 15:12:35
Ingo
Hallo Rudi
Danke für den Hinweis.
Sorry, wenn ich da auf dem Schlauch stehe, dies ist eine mir bisher leider nicht bekannte Funktion.
Meinst du mittels der Funktion "Application.EnableEvents = false bzw. = true ?
Und wo genau meinst du mit Anfang und Ende bzw. für welche konkreten Teile meines Codes muss ich dies abschalten bzw. wieder einschalten, damit die Neuberechnungen etc. in allen 3 Teilen trotzdem funktionieren ?
Denn wenn ich die Abschaltung ganz am Anfang des Gesamtcodes und die Wiedereinschaltung ganz am Ende des Gesamtcodes platziere, dann bekomme ich zwar die Fehlermeldung mit dem Stapelspeicher nicht mehr und laufen Neuberechnung Codeteil 1 und Neuberechnung Codeteil 2, aber die Neuberechnung Codeteil 3 scheint nicht zu laufen oder deren Ergebnis wird zumindest am Ende nicht angezeigt.
Gruss Ingo
Anzeige
AW: VBA Fehler nicht genügend Stapelspeicher
28.02.2022 15:31:14
Rudi
das ist ein ganz übler Stil, die Formeln aufgrund der Änderung in anderen Zellen, die durch Code geändert werden, eintragen zu lassen,
lass das und natürlich das letzte End If weg:

'-----TEIL 3------------------
Dim KeyCellsC As Range
Set KeyCellsC = Range("$T$22:$AC$222")
' >>> das sind die berechneten Zellen aus Teil 2
If Not Application.Intersect(KeyCellsC, Range(Target.Address)) _
Is Nothing Then
Gruß
Rudi
AW: VBA Fehler nicht genügend Stapelspeicher
28.02.2022 16:07:41
Ingo
Super, so funktioniert es einwandfrei ! Vielen Dank !
Somit war die letzte Abhängigkeitsprüfung für das angestrebte Ziel wohl einfach überflüssig, sprich von mir am Ende zu kompliziert gedacht bzw. habe ich am Ende wohl "den Ausgang nicht gefunden" :-).
Gruss Ingo
Anzeige
AW: VBA Fehler nicht genügend Stapelspeicher
28.02.2022 15:45:30
Daniel
Hi
Das Problem ist folgendes:
Wenn du im Change-Event per Makro eine Zelle änderst, wird an dieser Stelle das ChangeEventmakro erneut aufgerufen. Dabei werden die Variablen des ersten Durchläuft auf den Stapelspeicher gelegt, damit diese wieder unverändert zur Verfügung stehen, wenn der zweite Durchlauf abgeschlossen ist und der erste fortgesetzt wird.
Die Endlosschleife entsteht dann, wenn auch im zweiten Durchlauf wieder eine Zelle verändert wird, worauf dann das Makro zum dritten mal gestartet wird, und so weiter.
Man kann die Endlosschleife auf zwei Wegen verhindern:
a) man unterbindet generell den Aufruf von Eventmakros mit EnableEvents = False
b) man fragt im Makro ab, welche Zellen geändert wurden und vermeidet dann Änderungen, die zu endlosschleifen führen. Ob das möglich ist, ist aber von der Aufgabenstellung abhängig.
Je nachdem wie man programmiert, kann es auch möglich sein, dass eine Änderung, die das Makro macht, den einmalig wiederholten Selbstaufruf erfordert, dannist a) nicht möglich und man muss mit b) arbeiten.
Allerdings kann man das EnableEvents = False/True ja auch gezielt dort einsetzten , wo es notwendig ist und nicht pauschal für den ganzen Code.
Wenn das Pauschale auschalten für den ganzen Code nicht das gewünschte Ergebnis bringt, musst du deinen Code mal durchgehen und prüfen, wo es erforderlich ist und wo der einmalige selbstaufruf notwendig ist und dann gezielt steuern.
Gruß Daniel
Anzeige
AW: VBA Fehler nicht genügend Stapelspeicher
28.02.2022 16:12:44
Ingo
Hallo Daniel
Vielen Dank für deine Erläuterungen. Ich konnte mein Problem mittels Hinweisen von Rudi bereits lösen.
Ich habe daraus aber trotzdem mitgenommen, dass ich mich in einer ruhigen Minute mal genauer mit dieser Thematik auseinandersetzen muss.
Gruss Ingo
AW: VBA Fehler nicht genügend Stapelspeicher
28.02.2022 16:38:50
Daniel
Die Frage ist, ob dich meine Hinweise dich dazu befähigt hätten, das Problem selber zu lösen.

53 Forumthreads zu ähnlichen Themen

VBA Nicht genügend Speicher
Andreas

Hallo Excelgemeinde,
ich habe seit Jahren ein Programm auf XL 2003 VBA zu laufen. Diverse Abfragen zu anderen Datenbanken (hauptsächlich Access-DBs) werden damit aufgerufen. Das Programm läuft auf allen Rechnern stabil.
Jetzt habe ich einen neuen Clienten aufgesetzt. Der hat Windows XP...
27.03.2009 12:05:58
Thread-ID: 1064559
2 Beiträge
Anzeige
Array "Nicht genügend Speicher"
Swen

Hallo @ all,
ich arbeite gerade mit Array zum erstenmal, ich habe eine txt datei die mehr als 300.000 Zeilen (bei 70 Spalten) hat und wenn ich versuche diese Datein in ein Array zuladen gibt es immer Probleme da er Sagt das er nicht genügen Speicher hat...
Wie könnte ich die Datei Split...
08.12.2010 20:00:01
Thread-ID: 1190670
5 Beiträge
Nicht genügend Speicher vorhanden?
Gordon

Moin moin,
ich bekomme bei ein VBA-Projekt seit eben immer eine Fehlermeldung, sobald ich das Makro ausführe:
Laufzeitfehler '440' Eigenschaft ListCursor konnte nicht gesetzt werden. Für diesen Vorgang ist nicht genügend Speicher vorhanden. Wenn ich auf 'Debuggen' gehe zeigt er mir ei...
26.07.2011 23:39:59
Thread-ID: 1223773
13 Beiträge
Anzeige
Nicht genügend Speicher
F.

Guten Morgen,
bin dabei ein Projekt aufzubauen, welches auch eine UserForm mit rund 1000 Labels enthält.
Will ich aus dieser UserForm mit Doppelklick auf einen Button in den dazugehörigen Code springen, kommt die Fehlermeldung "nicht genügend Speicher".
Was kann ich tun?
Gruß
02.04.2012 09:15:53
Thread-ID: 1257447
5 Beiträge
nicht genügend stapelspeicher
Steffi

Hallo,
ich habe ein Problem mit dem Stapelspeicher und weiß auch woran es liegt aber nicht wie ich es lösen kann.
Ich habe eine Userform auf der ich zunächst die Mitarbeiter ("MA") mit Checkboxen auswähle und die Jahre mit ToggleButton.
Es geht dabei um eine Excel-Datei in der ich D...
08.12.2012 16:45:34
Thread-ID: 1289870
14 Beiträge
Nicht genügend Speicher (Fehler 7)
Tom

Hallo zusammen,
meine Excel Arbeitsmappe ist in der letzten Zeit sehr stark gewachsen und neuerdings erhalten ich folgenden Fehlermeldung beim schließe der Arbeitsmappe ohne zu Speichern: Nicht genügend Speicher (Fehler 7)
Ich erhalte diese Fehlermeldung nur beim schließen der Mappe. Wä...
19.11.2013 16:11:48
Thread-ID: 1339250
3 Beiträge
Excel über PPT VBA schließen und nicht speichern
Virginie

Hallo zusammen,
ich habe ein Problem das mich schon des längeren nervt. Meine Ideen helfen mir nicht mehr weiter und ehrlich gesagt weiß ich auch nicht was ich noch ausprobieren könnte...
Ich habe eine PPT-Datei mit vielen Pivot-Charts die automatisch aktualisiert werden. Da dies an die...
26.08.2015 12:29:48
Thread-ID: 1444505
2 Beiträge
Array - Nicht genügend Speicher
Bonduca

Hallo,
Ich möchte ein Tabellenblatt via Array einlesen:
Dim arr_A() As Variant
max_z = 20000
max_s = 420
Worksheets(A).Activate
'Array wird neu definiert mit maximaler Zeilen- und Spaltenanzahl
ReDim arr_A(max_z, max_s)
Es kommt der Laufzeitfehler 7: Nicht genüg...
10.09.2015 08:32:50
Thread-ID: 1446822
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
4
12
1
4
13
2
1
5
8
2
16
2
6
5
4
13
8
1
6
4
12
4
1