Clever-Excel-Forum

Hallo, ich möchte gerne die Differenz einer Ergebnis-Zelle gegenüber der letzten Veränderung anzeigen lassen.
Beispiel:
D1 vor der letzten Berechnung: 15
D1 nach der letzten Berechnung: 5
Ausgabe D2: -10
 
Dies habe ich mit folgendem (nicht von mir stammenden, ich habe so gut wie keine Vorkenntnisse, was vba angeht) Code versucht:
 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LoWert1 As Long
    Dim LoWert2 As Long
    If Target.Address(False, False) = "D1" Then
        LoWert1 = Target
        Application.EnableEvents = False
        Application.Undo
        LoWert2 = Target
        Target = LoWert1
        Target.Offset(1, 0) = LoWert1 - LoWert2
        Application.EnableEvents = True
    End If
End Sub
 
Wenn ich nun in D1 eine Änderung stattfindet, erfolgt die Fehlermeldung "benutzerdefinierter typ nicht definiert", wofür es laut Google vielfältigste Ursachen gibt, darum komme ich hier nicht weiter.

Hallo Michael Mai, verlinkst du bitte deine Beiträge, die mit den gleichen Anfragen, selbst wenn du hier Thomas Schneider bist...

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren untereinander?
Danke.

Gruß,
steve1da

Hallo, und wo noch..? Das wäre nur fair...

Nirgends noch und hier auch nur doppelt, weil ich dort keine Antwort mehr erwartet habe. Und wenn dort doch noch eine gekommen wäre, hätte ich sie hier noch geteilt, versprochen!

Hallo. Ja nee, is klar... ... löschen nach dem man gebeten wurde, die Beiträge zu verlinken ... Ist natürlich - ich finde uncool... Aber nu ist die andere Anfrage weg...

Ich kann dir nicht folgen.

Hallo,

(11.03.2018, 20:19)ThomasSchneider schrieb: [ -> ]Wenn ich nun in D1 eine Änderung stattfindet, erfolgt die Fehlermeldung "benutzerdefinierter typ nicht definiert", wofür es laut Google vielfältigste Ursachen gibt, darum komme ich hier nicht weiter.

Dein geposteter Code hat mit der Fehlermeldung jedenfalls nichts zu tun.

Gruß Uwe

(11.03.2018, 21:52)ThomasSchneider schrieb: [ -> ]Ich kann dir nicht folgen.

Hallo Michael, wobei kannst du mir nicht folgen..? Mit deinem Post bei facebook..? Da kann ich dir nicht (mehr) folgen...


[attachment=16608]

[attachment=16609]