Summen addieren

Forumthread: Summen addieren
3 Beiträge zu diesem Forumthread
Anzeige

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?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Summen addieren

11.02.2004 23:29:39

PeterW
AW: Summen addieren

11.02.2004 23:33:04

K.Rola
AW: Summen addieren

11.02.2004 23:50:43

von oliver

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

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

AW: Summen addieren

11.02.2004 23:50:43

von oliver

danke ich habe die lösung!

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!