Wie behält man in Excel eine laufende Summe in einer einzelnen Zelle bei?
Dieser Artikel zeigt Ihnen eine Methode, um eine laufende Summe in einer einzelnen Zelle in Excel zu behalten. Beispielsweise enthält die Zelle A1 aktuell eine Zahl 10. Wenn Sie eine weitere Zahl wie 5 eingeben, wird der Ergebniswert von A1 15 (10+5) betragen. Sie können dies wie folgt einfach umsetzen.
Laufende Summe in einer einzelnen Zelle mit VBA-Code beibehalten
Laufende Summe in einer einzelnen Zelle mit VBA-Code beibehalten
Der folgende VBA-Code unterstützt Sie dabei, eine laufende Summe in einer Zelle zu führen. Gehen Sie dazu einfach Schritt für Schritt wie folgt vor:
1. Öffnen Sie das Arbeitsblatt, das die Zelle enthält, in der Sie die laufende Summe beibehalten möchten. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen aus.
2. Fügen Sie im geöffneten Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code in das Codefenster ein. Siehe Screenshot:
VBA-Code: Laufende Summe in einer einzelnen Zelle beibehalten
Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
End If
End If
EndF:
Application.EnableEvents = True
mRangeNumericValue = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
mRangeNumericValue = Target.Range("A1").Value
End If
End If
err0:
End SubHinweis: Im Code steht A1 für die Zelle, in der die laufende Summe gespeichert wird. Geben Sie je nach Ihren Anforderungen eine beliebige Zelle an.
3. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Ab sofort wird beim Eingeben von Zahlen in Zelle A1 die laufende Summe fortlaufend aktualisiert – wie im folgenden Screenshot dargestellt.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins