Kann man in einer Excel-Tabelle einen Bereich definieren, in dem die Differenzen zu den...

Guten Tag Herr Killer,

vielen Dank für Ihre schnelle und hilfreiche Antwort.

Leider löst das Änderungsprotokoll mein konkretes Problem nur teilweise, da die Differenzwerte in der Excel-Tabelle ebenfalls aufgeführt werden sollen.

Die Formulierung meiner ursprünglichen Frage war etwas unscharf, weshalb ich diese um einen Anwendungsfall erweitert habe.

Mit freundlichen Grüßen

EXU

Unten ist ein Beispiel wie der Anwendungsfall für die Zellen B2 und B6 in einem Blatt realisiert werden kann.

Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte

Wählen Sie "Code anzeigen"

Fügen Sie den folgenden Code ein

Schließen Sie den VBA-Editor

Geben Sie Werte in B2 oder B6 ein

Alles klar?

Andreas.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim SaveCalculation, Last

  'Nur wenn eine Zelle geändert wird

  If Target.Count > 1 Then Exit Sub

  'Nur in diesen Zellen

  Select Case Target.Address(0, 0)

    Case "B2", "B6"

      'Fehlerbehandlung aus

      On Error Resume Next

      With Application

        'Vorbereiten

        .EnableEvents = False

        SaveCalculation = .Calculation

        .Calculation = xlCalculationManual

        'Letzte Eingabe holen

        .Undo

        Last = Target.Value

        .Undo

        'Abspeichern

        SaveHistory Target, Last

        'Aufräumen

        .Calculation = SaveCalculation

        .EnableEvents = True

      End With

  End Select

End Sub

Private Sub SaveHistory(ByVal Source As Range, ByVal OldValue)

  Dim Dest As Range

  Dim Data

  Dim i As Long, j As Long

  'Die Sicherung referenzieren und auslesen

  Set Dest = Source.Offset(, 2).Resize(4, 2)

  Data = Dest.Value

  'Letzte Sicherung entfernen

  For i = UBound(Data) To 2 Step -1

    For j = 1 To UBound(Data, 2)

      Data(i, j) = Data(i - 1, j)

    Next

  Next

  'Die Differenz und den letzten Wert eintragen

  Data(1, 1) = Source.Value

  If Not IsEmpty(OldValue) Then Data(1, 2) = Source.Value - OldValue

  Dest.Value = Data

End Sub

Naja, soll ja nicht das Problem sein.

Also bedarf es einer Idee einer Methode die universell für alle vorkommenden Fälle anwendbar ist.

Die Idee wo die Werte gespeichert werden sollen müssen Sie schon selber haben. Wie man das macht kann ich Ihnen an einem exemplarischen Beispiel zeigen.

Das gezeigte Beispiel läßt sich wohl realisieren... aber ist weder universell und meines Erachtens wenig sinnvoll. Was soll denn passieren wenn nach der 4ten Änderung eine 5te gemacht wird? Der eingerahmte Bereich ist voll => Überlauf.

Andreas.

Eine Programmierung mit VBA ist in dem Fall nicht einfach und letzten Endes gibt es immer Möglichkeiten das auszuhebeln.

Daher gibt es in Excel die Möglichkeit eines Änderungsprotokolles.

https://support.office.com/de-de/ar...itsmappe-22aea671-cac7-4fa3-845d-eeb23725bd15

Andreas.

Guten Tag Herr Killer,

das Problem des Überlaufs ist mir bewusst, ergibt sich aber aus den Vorgaben die ich habe.

Was die Unsinnigkeit des Anwendungsfalls anbelangt bin ich Ihrer Meinung. Leider ist es höchst unwahrscheinlich, dass das Unternehmen seine Prozesse dahingehend verändert, dass die Datenverarbeitung vereinfacht wird.

Mehr als ein exemplarisches Beispiel möchte ich auch nicht.

Was ich mir erhoffe ist ein grober thematischer Fingerzeig, da ich wenig Kenntnisse über die Automatisierung bzw. Customisierung von Excel habe.

Einen entsprechenden Algorithmus könnte ich formulieren, weiß nur leider nicht wie ich Excel diesen beibringe.

Mit freundlichen Grüßen

EXU