Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Zahlendreher am Dezember 15, 2015, 10:12:37 Vormittag

Titel: Office 2013: Zu wenig Stapelspeicher
Beitrag von: Zahlendreher am Dezember 15, 2015, 10:12:37 Vormittag

Habe folgenden VBACode:

Zitat

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  :o

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

Titel: Antw:Office 2013: Zu wenig Stapelspeicher
Beitrag von: gmg-cc am Dezember 15, 2015, 11:23:21 Vormittag

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" ...

Titel: Antw:Office 2013: Zu wenig Stapelspeicher
Beitrag von: Zahlendreher am Dezember 15, 2015, 11:54:31 Vormittag

 :D 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

Titel: Antw:Office 2013: Zu wenig Stapelspeicher
Beitrag von: gmg-cc am Dezember 15, 2015, 17:22:21 Nachmittag

Moin,

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

Titel: Antw:Office 2013: Zu wenig Stapelspeicher
Beitrag von: Zahlendreher am Dezember 17, 2015, 09:51:56 Vormittag

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