Nicht genügend Stapelspeicher (Fehler 28)

[Tommiks]

Guten Morgen zusammen,

eigentlich ist die Datei sehr einfach. 

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1") = Application.WorksheetFunction.Sum(Range("A2:A30"))

End Sub

Ich versuche in dem Bereich A2:A30 die Eingaben zu summieren. Ich wollte in A1 einen Code ohne die Anzeige der Formel.
Die Berechnung soll automatisch geschehen.

Nach jeder Eingabe in A2:A30 erscheint die Fehlermeldung "Nicht genügend Stapelspeicher". Ich habe mehrere Male den Rechner neu gestartet, aber half nicht.

Die Datei füge ich bei.
Warum funktioniert der Code in dem Beispiel nicht? 

Bedanke mich im Voraus für die Hilfe.

[RPP63]

Moin!
Zunächst mal die berechtigte Frage: Warum schreibst Du nicht einfach =SUMME(A2:A30) in A1?
Dürfte Excel rechentechnisch nicht ans Limit bringen. 

Zum Thema:
Das Ereignismakro landet in einer Endlosschleife!

Lösung 1:
Kapsel das Makro mit Application.EnableEvents = True / False

Lösung 2 (viel besser):
Löse das Makro erst dann aus, wenn sich im Bereich A2:A30 etwas ändert!

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A2:A30"), Target) Is Nothing Then
  Range("A1") = WorksheetFunction.Sum(Range("A2:A30"))
End If
End Sub

Gruß Ralf

[Tommiks]

Besten Dank...