Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Summen addieren

Summen addieren
11.02.2004 22: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
Anzeige
AW: Summen addieren
11.02.2004 22: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 22: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 22:50:43
von oliver
danke ich habe die lösung!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige