Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

delta bei Zellenänderung anzeigen

delta bei Zellenänderung anzeigen
20.08.2003 09:39:45
Christian
Hallo liebe Leser
Folgendes Problem: Ich habe in einer Zelle einen Wert (z.B. 5), möchte diesen Wert in der selben Zelle ändern (auf z.B. 20)und dann das Delta (15 (alter Zellenwert - neuer Zellenwert)) in einer neuen Zelle anzeigen lassen.
Kann mir jemand einen Tipp geben? Danke im Voraus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: delta bei Zellenänderung anzeigen
20.08.2003 10:24:00
sergiesam
Hi,
versuchs damit:
Dim alterWert As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsNumeric(Target) Then alterWert = Target.Cells(1)  'Nur bei Zahlen
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1) = "" Or alterWert = "" Then 'Wenn gelöscht wird, wird der alte Wert zurückgesetzt
alterWert = ""
Else
Application.EnableEvents = False     'Eventhandler ausschalten, da Werte geändert werden (Change-Ereignis unterdrücken)
Target.Offset(0, 1) = Target.Cells(1) - alterWert 'Berechnung eine Spalte neben der Eingabe
alterWert = Target.Cells(1)  'Setzen des neuen Zellwertes als alten Wert
Application.EnableEvents = True  'Eventhandler wieder aktivieren
End If
End Sub

Beispielmappe findest du hier:
https://www.herber.de/bbs/user/646.xls
Viel Spaß,
Sam

Anzeige
AW: delta bei Zellenänderung anzeigen
20.08.2003 14:25:05
Christian
Hallo Sam,
super - haut hin! Danke nochmal!
Christian

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige