Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Summen addieren

Forumthread: Summen addieren

Summen addieren
11.02.2004 23:11:17
oliver k
ich möchte in einem festgelegten feld (A5) immer einen neuen wert-zahl eingeben können und die summe aller werte die ich eingegeben habe, sollte sich in einem neuen feld (d5) nieder schreiben. möglichst so das das feld A5 nachdem ich enter gedrückt habe wieder leer ist. wer kann mir dabei helfen?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summen addieren
11.02.2004 23:29:39
PeterW
Hallo Oliver,
Rechtsklick auf das Tabellenregister, in dem das funktionieren soll, Code anzeigen. In das sich öffnende große Fenster diesen Code kopieren:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then
On Error GoTo Fehler:
Application.EnableEvents = False
Range("D5") = Range("D5") + Target
Target = ""
Application.EnableEvents = True
End If
Exit Sub
Fehler:
Target = ""
Application.EnableEvents = True
End Sub

Gruß
Peter
Anzeige
AW: Summen addieren
11.02.2004 23:33:04
K.Rola
Hallo,
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) = "A5" Then
On Error GoTo ende
Application.EnableEvents = False
[d5] = [d5] + [a5]
[a5].ClearContents
End If
ende:
Application.EnableEvents = True
End Sub

Gruß K.Rola
Anzeige
AW: Summen addieren
11.02.2004 23:50:43
von oliver
danke ich habe die lösung!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18