Office 2013: Zu wenig Stapelspeicher

[Zahlendreher]

Habe folgenden VBACode:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$C$9" Then
      Application.EnableEvents = False
      Range("D9") = Range("D9") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$10" Then
      Application.EnableEvents = False
      Range("D10") = Range("D10") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$11" Then
      Application.EnableEvents = True
      Range("D11") = Range("D11") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$12" Then
      Application.EnableEvents = True
      Range("D12") = Range("D12") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$13" Then
      Application.EnableEvents = True
      Range("D13") = Range("D13") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
   If Target.Address = "$C$14" Then
      Application.EnableEvents = True
      Range("D14") = Range("D14") + Target
      Target.ClearContents
      Application.EnableEvents = True
   End If
End Sub

Das Problem ist das , sobald ich die Eingaben mache , nach der dritten Eingabe die Fehlermeldung mit zu wenig Stapelspeicher kommt.

Bei meinem Läppi laufts durch zwar mit Sanduhr zwischendurch aber geht. Bloß auf der Arbeit nicht 

Die zusammengezählten Zahlen werden auch noch in ein Diagramm übergeben .

[gmg-cc]

Moin,

ich habe einmal den Code etwas gestrafft und vor allen Dingen eine Fehlerbehandlung eingebaut. Bei mir läuft es ohne Probleme:

Code: [Auswählen]

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Ze As Integer
   
   Ze = Target.Row
   On Error GoTo ErrorHandler
   If Target.Column = 3 Then
      Select Case Ze
      Case 9 To 14
         Application.EnableEvents = False
            Cells(Ze, 4) = Cells(Ze, 4) + Target
            Target.ClearContents
         Application.EnableEvents = True
      End Select
   End If
   
ErrorHandler:
   Application.EnableEvents = True
End Sub

Dennoch frage ich mich, ob da nicht ein anderer Code "reinpfuscht" ...

[Zahlendreher]

  Danke läuft jetzt aufm Läpi auch ohne Sanduhr. Ich werds heut auf der Arbeit umschreiben und dann morgen berichten.

Kann sein das ich noch die Eingabemaske erweitern muss. Kannste mir dann noch die Stellen markieren die ich umändern muss?

mfg

[gmg-cc]

Moin,

welche Eingabemaske? Oder meinst du den Bereich? Da kommt es darauf an, was du ändern willst …

[Zahlendreher]

Den Bereich mein ich . Habs aber rausbekommen. Läuft so super