Wie kann ich insgesamt in einer oder einer einzelnen Zelle in Excel ausgeführt werden?
Dieser Artikel zeigt Ihnen eine Methode, mit der Sie total in einer oder einer einzelnen Zelle in Excel ausführen können. Beispielsweise enthält die Zelle A1 derzeit eine Zahl 10. Wenn Sie eine andere Zahl wie 5 eingeben, beträgt der Ergebniswert von A1 15 (10 + 5). Sie können wie folgt vorgehen, um dies einfach zu erledigen.
Führen Sie total in einer oder einer einzelnen Zelle mit VBA-Code weiter aus
Führen Sie total in einer oder einer einzelnen Zelle mit VBA-Code weiter aus
Der folgende VBA-Code kann Ihnen dabei helfen, die Gesamtsumme in einer Zelle fortzusetzen. Bitte gehen Sie Schritt für Schritt wie folgt vor.
1. Öffnen Sie das Arbeitsblatt, in dem sich die Zelle befindet, die Sie insgesamt ausführen möchten. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen in dem Kontextmenü.
2. In der Öffnung Microsoft Visual Basic für Applikationen Fenster, kopieren Sie den VBA-Code und fügen Sie ihn in das Codefenster ein. Siehe Screenshot:
VBA-Code: Laufen Sie insgesamt in einer oder einer einzelnen Zelle weiter
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 Sub
Note: Im Code ist A1 die Zelle, in der Sie insgesamt laufen lassen. Bitte geben Sie bei Bedarf eine Zelle an.
3. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Von nun an läuft beim Eingeben von Zahlen in Zelle A1 die Gesamtsumme weiter, wie im folgenden Screenshot gezeigt.
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!