Wert vor Ändern einer Zelle abrufen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tomi,
mal ein Beispiel. Wenn du allerdings mehrere Zellen auf einmal änderst, gibt diese Variante nur den Wert der obersten linken Zelle des geänderten Bereiches zurück. Im Array "vntBefore" sind aber alle Werte drin.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vntAfter As Variant, vntBefore As Variant
    Dim strAddress As String
    strAddress = Selection.Address
    vntAfter = Target.Value2
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
        .Undo
    End With
    Range(strAddress).Select
    vntBefore = Target.Value2
    Target.Value2 = vntAfter
    If IsArray(vntBefore) Then
        MsgBox vntBefore(1, 1)
    Else
        MsgBox vntBefore
    End If
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

Ich würde da aber eine Abfrage einbauen, wie groß der geänderte Bereich ist, denn wenn jemand eine oder mehrere Spalten oder sogar die ganze Tabelle markiert und z.B. auf entfernen drückt, dann dauert das eine Weile, bis das Programm durch ist. Ist die ganze Tabelle markiert, wird das Programm sowieso auf einen Fehler laufen, denn ein so großes Variant-Array erzeugt einen Überlauf.
Gruß
Nepumuk

Danke für die Ideen.
Danke Andreas Emmert - diese idee werde ich aufgreifen, da ich sowieso mit dem Worksheets-Change arbeite.
An einer anderen Stelle im Programmablauf überprüfe ich ob mehr als eine Zelle geändert werden soll und unterbinde dies (ausser bei Admin-Rechten) mit einem application.undo, somit stellt sich nicht die Problematik, mehrere Werte abspeichern zu müssen.
Meine "Quick and Dirty" Lösung sieht dann so aus - funktioniert für meine Zwecke astrein, wenngleich vielleicht ein wenig umständlich
'Eintrag rückgängig machen um Original-Wert auszulesen
ProgID = "OriginalWert"
Application.Undo
EndeOriginalWert:
OriginalWert = Worksheets(WorkS).[A1].Offset(UpdateZeile - 1, UpdateSpalte - 1).Value2
ProgID = "OriginalWert2"
Worksheets(WorkS).[A1].Offset(UpdateZeile - 1, UpdateSpalte - 1).Value2 = UpdateWert
EndeOriginalWert2:
Die Variablen UpdateWert und OriginalWert sind beide Public und stehen mir somit an Ende der letzten Programmzeile zur Verfügung.
Danke und Gruß,
Tomi

Beliebteste Forumthreads (12 Monate)

Wert vor Ändern einer Zelle abrufen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert vor Ändern einer Zelle abrufen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread