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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: nicht genügend stapelspeicher Fehler 28

Forumthread: VBA: nicht genügend stapelspeicher Fehler 28

VBA: nicht genügend stapelspeicher Fehler 28
05.01.2018 11:36:12
Balduris
Guten Morgen,
ich bin relativ unerfahren was VBA / Markos angeht, weiss mir aber auf Grund der Umstände nicht anders zu helfen. Die Zirkelbezuglösung die ich ursprünglich genutzt hatte, führte zu Fehlbedienungen durch andere Nutzer, daher die VBA Lösung.
Durch meine Unkenntnis hat sich allerdings auf schwächeren Rechnern ein Fehler eingeschlichen, den ich nicht allein behoben bekomme.
Was soll passieren: wenn z.B. in Zelle B15 ein Betrag eingegeben wird, soll in Zelle C15 der Betrag mit 1,19 multipliziert automatisch eingetragen werden (und umgekehrt, einfache brutto / netto Berechnung, bei der der Nutzer die Wahl hat ob er B oder C mit Daten füttert).
Funktioniert so weit auch, allerdings habe ich wohl eine Endlosschleife produziert, die bei einigen Rechnern zu dem angesprochenen Fehler führt.
Der von mir verwendete Code: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$12" Then Range("C12") = Range("B12") * 1.19
If Target.Address = "$C$12" Then Range("B12") = Range("C12") / 1.19
If Target.Address = "$B$13" Then Range("C13") = Range("B13") * 1.19
If Target.Address = "$C$13" Then Range("B13") = Range("C13") / 1.19
If Target.Address = "$B$15" Then Range("C15") = Range("B15") * 1.19
If Target.Address = "$C$15" Then Range("B15") = Range("C15") / 1.19
If Target.Address = "$B$16" Then Range("C16") = Range("B16") * 1.19
If Target.Address = "$C$16" Then Range("B16") = Range("C16") / 1.19
If Target.Address = "$B$17" Then Range("C17") = Range("B17") * 1.19
If Target.Address = "$C$17" Then Range("B17") = Range("C17") / 1.19
If Target.Address = "$B$18" Then Range("C18") = Range("B18") * 1.19
If Target.Address = "$C$18" Then Range("B18") = Range("C18") / 1.19
If Target.Address = "$B$19" Then Range("C19") = Range("B19") * 1.19
If Target.Address = "$C$19" Then Range("B19") = Range("C19") / 1.19
If Target.Address = "$B$20" Then Range("C20") = Range("B20") * 1.19
If Target.Address = "$C$20" Then Range("B20") = Range("C20") / 1.19
If Target.Address = "$B$21" Then Range("C21") = Range("B21") * 1.19
If Target.Address = "$C$21" Then Range("B21") = Range("C21") / 1.19
End Sub
Kann mir jemand verraten, wie ich die vermutete Endlosschleife loswerde?
Besten Dank im Voraus
VG Balduris
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: nicht genügend stapelspeicher Fehler 28
05.01.2018 11:47:37
UweD
Hallo
da du per Makro wieder eine Zelländerung vornimmst, wird das Event immer wieder aufgerufen.
Also vorher ausschalten. und am Ende wieder ein.
Im Fehlerfall würde das schiefgehen, deshalb noch eine Fehlerbehandlung drumherumbauen.
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    Application.EnableEvents = False
    
    If Target.Address = "$B$12" Then Range("C12") = Range("B12") * 1.19
    If Target.Address = "$C$12" Then Range("B12") = Range("C12") / 1.19
    If Target.Address = "$B$13" Then Range("C13") = Range("B13") * 1.19
    If Target.Address = "$C$13" Then Range("B13") = Range("C13") / 1.19
    If Target.Address = "$B$15" Then Range("C15") = Range("B15") * 1.19
    If Target.Address = "$C$15" Then Range("B15") = Range("C15") / 1.19
    If Target.Address = "$B$16" Then Range("C16") = Range("B16") * 1.19
    If Target.Address = "$C$16" Then Range("B16") = Range("C16") / 1.19
    If Target.Address = "$B$17" Then Range("C17") = Range("B17") * 1.19
    If Target.Address = "$C$17" Then Range("B17") = Range("C17") / 1.19
    If Target.Address = "$B$18" Then Range("C18") = Range("B18") * 1.19
    If Target.Address = "$C$18" Then Range("B18") = Range("C18") / 1.19
    If Target.Address = "$B$19" Then Range("C19") = Range("B19") * 1.19
    If Target.Address = "$C$19" Then Range("B19") = Range("C19") / 1.19
    If Target.Address = "$B$20" Then Range("C20") = Range("B20") * 1.19
    If Target.Address = "$C$20" Then Range("B20") = Range("C20") / 1.19
    If Target.Address = "$B$21" Then Range("C21") = Range("B21") * 1.19
    If Target.Address = "$C$21" Then Range("B21") = Range("C21") / 1.19
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
eleganter
05.01.2018 12:02:00
UweD 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    Dim Z
    If Target.Row >= 12 And Target.Row <= 21 Then
    
        Application.EnableEvents = False
        For Each Z In Target
            Select Case Z.Column
                Case 2
                    Z.Offset(0, 1) = Z * 1.19
                Case 3
                    Z.Offset(0, -1) = Z / 1.19
                Case Else
                    GoTo Fehler
            End Select
        Next
        
    End If
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: VBA: nicht genügend stapelspeicher Fehler 28
05.01.2018 12:12:43
Balduris
Hallo Uwe,
vielen Dank für deine schnelle Hilfe. Das funktioniert einwandfrei!
Ich sehe schon: Wenn ich VBA in Zukunft nutzen möchte, habe ich noch einen laaangen Weg vor mir :)
Danke und LG zurück
Balduris aka Alex
AW: VBA: nicht genügend stapelspeicher Fehler 28
05.01.2018 11:57:17
Werner
Hallo Bladuris,
das würde ich mit Select Case angehen. Application.Enableevents hat Uwe ja schon angesprochen. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Then
If Target.Count > 1 Then
MsgBox "Mehrfachauswahl unzulässig"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
If Target.Row >= 12 And Target
Gruß Werner
Anzeige
@ Werner
05.01.2018 12:04:18
UweD
hab nicht abgeschrieben, hatte den gleichen Gedanken
LG UweD
AW: @ Uwe
05.01.2018 12:07:05
Werner
Hallo Uwe,
kann ja jeder sagen.;-D
Ist doch kein Problem, zwei Personen, ein Gedanke.
Gruß Werner
AW: VBA: nicht genügend stapelspeicher Fehler 28
05.01.2018 12:17:28
Balduris
Hallo Uwe, hallo Werner,
ich werde mich bei Gelegenheit damit beschäftigen und das probieren.
Erstmal bin ich heilfroh, das es jetzt geht!
Wie bereits erwähnt: ... noch ein langer Weg liegt vor mir.
Danke euch!
VG
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
05.01.2018 12:35:53
Werner
;

Forumthreads zu verwandten Themen

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
Anzeige
Was ist der Fehler?
chris

Excel meckert: Fehler beim Kompilieren: Syntaxfehler
For Each NeueTabelle In Worksheets("Liste").Range("C5") & "," & Range("D5").Value
Danke Chris
16.01.2017 15:13:39
Thread-ID: 1535316
7 Beiträge
ISTFEHLER-Verständnisproblem
Boris

Hallo Excellenzen,folgendes kleines Beispiel:
15.01.2003 14:52:10
Thread-ID: 203919
6 Beiträge
Fehlermeldung, aber was ist hier der Fehler ?
Peter T
Hallo,
bekomme bei folgender Zeile eine Fehlermeldung:
"Unzulässiger oder nicht ausreichend definierter Verweis"
hier die Zeile mit dem Fehler (.sheets ist nach der Fehlermeldung markiert):
KlasseComboBox.List(izeile, 1) = .Sheets("Custtabblatt").Cells(iRow, 4)
Hier der ganze Cod...
10.08.2003 11:06:40
Thread-ID: 292470
9 Beiträge
Hilfe,,,, was ist ds für ein Fehler
Thomas
Schreibe gerade ein etwas größeres Programm. Alle Modue funktionieren eigentlich ohne Problem, nur manchmal kommt die folgende Fehlermeldung
Laufzeitfewhler '-2147417848 (80010108)'
automatisierungsfehler
Das aufgerufene Objekt wurde vom Client getrennt
Was ist das ??

Thomas
09.02.2004 14:08:15
Thread-ID: 379031
2 Beiträge
Menüleiste - Fehlermeldung nicht erklärbar...
Karsten

Guten Morgen zusammen.
Habe ein Problem bei der Menüleistenerstellung. Es soll ein Menü mit 2 zeiligem Popup erstellt werden. Bei meinem untenstehenden Code kommt in der Zeile
" Set Pop1 = Symb.Controls(2) " zur Fehlermeldung "Index außerhalb des gültigen Bereichs". Woran liegt es? W...
21.06.2005 09:56:06
Thread-ID: 626567
3 Beiträge
Was ist hier falsch ? Makro hat Fehler.
Sigrid

Hallo,
mit diesem Code:
If Time > "00:00:00" And Time Date = Format(Now - 1, "dd.mm.yyyy")
Else
Date = Format(Now, "dd.mm.yyyy")
End If
s = InputBox(vbCr & vbCr & vbCr & "Datum in der Form TT.MM.JJJJ (z.B. 19.11.2005)eingeben:", "Datum", Date)
soll fo...
28.11.2005 17:21:42
Thread-ID: 701864
3 Beiträge
Was ist Standardfehler bei Excel?
Karsten

Hallo Leute,
ich möchte in meinen Diagrammen Fehlerbalken einfügen, jedoch wüsst ich gerne, aus was der Standardfehler bei Excel errechnet wird (ich mein nicht die Stabw)?
Kennt sich da jemand aus?
Der Karsten
03.07.2006 10:11:27
Thread-ID: 778562
2 Beiträge
Was wurde bei ListBox mit MultiSelect ausgewählt?
Reinhard

Hallo Wissende,
eine ListBox hatte ich noch nie benutzt, auch weil ich gar nicht weiß was ich damit soll, zur Auswahl usw. benutzte ich immer Combiboxen und komme damit leidlich klar.
Nun bieten aber nur ListBoxen die Option mehrere Einträge auszuwählen indem ich die MultiSelect-Eigensc...
12.05.2007 16:00:32
Thread-ID: 869632
3 Beiträge
Was ist ein verd.... Automatisierungsfehler??
Stefan

Hi,
ich habe eine Arbeitsmappe mit Makros, die ich selber auch in dieser Excelversion erstellt habe. Anfangs ging alles, aber nu' nich' mehr. Der Himmel weiß warum, ich aber nicht!
Also, zum Problem:
Per Mausklick sollen Teile einer Zeile mit der Zeile darüber vertauscht werden. Daz...
22.08.2007 14:23:47
Thread-ID: 899413
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA Fehler 28: Nicht genügend Stapelspeicher beheben

Schritt-für-Schritt-Anleitung

Um den Fehler "nicht genügend Stapelspeicher" in Excel VBA zu beheben, kannst du folgende Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Finde das entsprechende Arbeitsblatt: Doppelklicke auf das Arbeitsblatt, in dem du den Code hast.
  3. Aktualisiere den Code:
    • Setze Application.EnableEvents = False am Anfang des Codes und Application.EnableEvents = True am Ende.
    • Füge eine Fehlerbehandlung hinzu, um sicherzustellen, dass die Ereignisse auch bei einem Fehler wieder aktiviert werden.

Hier ist ein Beispiel für den aktualisierten Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    Application.EnableEvents = False

    ' Deine Logik hier
    If Target.Address = "$B$12" Then Range("C12") = Range("B12") * 1.19
    ' Füge hier weitere Bedingungen hinzu...

Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
    Err.Clear
End Sub

Häufige Fehler und Lösungen

  • Endlosschleife: Der häufigste Grund für den Fehler "nicht genügend Stapelspeicher" ist eine Endlosschleife in der Worksheet_Change-Routine. Dies geschieht, wenn du durch das Makro eine Zelländerung auslöst, die wiederum das Ereignis erneut auslöst. Die oben genannten Anpassungen mit Application.EnableEvents helfen, dieses Problem zu lösen.

  • Fehler 28: Wenn du "Fehler 28" siehst, liegt das in der Regel daran, dass dein Code zu viele verschachtelte oder sich wiederholende Aufrufe hat. Reduziere die Komplexität deines Codes, indem du z.B. eine Schleife oder Select Case verwendest, um ähnliche Bedingungen zusammenzufassen.

Alternative Methoden

Eine alternative Methode, um den Fehler "nicht genügend Stapelspeicher" zu vermeiden, ist die Verwendung von Select Case. Dies vereinfacht den Code und reduziert die Wahrscheinlichkeit von Fehlern:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    Application.EnableEvents = False

    Select Case Target.Column
        Case 2 ' B-Spalte
            Target.Offset(0, 1) = Target.Value * 1.19
        Case 3 ' C-Spalte
            Target.Offset(0, -1) = Target.Value / 1.19
    End Select

Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
    Err.Clear
End Sub

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du den Fehler "nicht genügend Stapelspeicher" in Excel VBA vermeiden kannst:

  • Beispiel 1: Einfache Umsatzsteuerberechnung zwischen zwei Zellen.
  • Beispiel 2: Validierung der Eingabe, um sicherzustellen, dass nur eine Zelle gleichzeitig bearbeitet werden kann.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then
        MsgBox "Mehrfachauswahl unzulässig"
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
        Exit Sub
    End If
    ' Weitere Logik hier...
End Sub

Tipps für Profis

  • Verwende Application.Undo: Dies kann nützlich sein, um unerwünschte Änderungen rückgängig zu machen, falls ein Fehler auftritt.
  • Fehlerbehandlung verbessern: Stelle sicher, dass deine Fehlerbehandlung immer Application.EnableEvents = True aufruft, auch wenn ein Fehler auftritt. So wird verhindert, dass Excel in einen Zustand gelangt, in dem Ereignisse nicht mehr ausgelöst werden.
  • Testen auf verschiedenen Rechnern: Manchmal kann der Fehler "nicht genügend Stapelspeicher" nur auf bestimmten Rechnern auftreten. Teste deinen Code auf verschiedenen Systemen, um sicherzustellen, dass er überall funktioniert.

FAQ: Häufige Fragen

1. Was ist Fehler 28?
Fehler 28 in Excel VBA tritt auf, wenn der Stapelspeicher erschöpft ist, oft verursacht durch rekursive Aufrufe oder Endlosschleifen.

2. Wie kann ich den Fehler "nicht genügend Stapelspeicher" vermeiden?
Aktiviere und deaktiviere die Ereignisse in deinem Code mit Application.EnableEvents, um zu verhindern, dass Änderungen durch dein Makro erneut das Ereignis auslösen.

3. Welche Excel-Version benötige ich für VBA?
VBA ist in Microsoft Excel 2010 und späteren Versionen verfügbar. Stelle sicher, dass deine Version das Arbeiten mit Makros unterstützt.

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