Forums Neueste Beiträge
 

Zellwert vor Worksheet_Change

16/02/2009 - 12:54 von reinhold | Report spam
Hallo NG,

über Worksheet_Change starte ich ein VBA nach einer Zellànderung in
einem definierten Target Bereich. Für die Steuerung ist aber wichtig,
welcher Wert VOR Änderung in der Zelle stand. Da Worksheet_Change erst
nach der Änderung greift, bekomme ich bisher auch nur den neuen,
aktuellen Wert.

Hat jemand einen Tipp, wie ich an den ursprünglichen Wert komme?

Danke und viele Grüsse
Reinhold
 

Lesen sie die antworten

#1 Andreas Killer
16/02/2009 - 13:50 | Warnen spam
On 16 Feb., 12:54, reinhold wrote:

über Worksheet_Change starte ich ein VBA nach einer Zellànderung in
einem definierten Target Bereich. Für die Steuerung ist aber wichtig,
welcher Wert VOR Änderung in der Zelle stand. Da Worksheet_Change erst
nach der Änderung greift, bekomme ich bisher auch nur den neuen,
aktuellen Wert.

Hat jemand einen Tipp, wie ich an den ursprünglichen Wert komme?


Den kannst Du Dir abspeichern wenn Du in die Zelle springst.

Dim Zellwert As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Zellwert = Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not IsNumeric(Target) Then Target = Zellwert
End Sub

Mit diesem Code kannst Du nur Zahlen in eine Tabelle eingeben.

Aber Achtung: Speicherst Du die Tabelle und öffnest sie erneut, dann
musst Du beim Öffnen zusàtzlich dafür sorgen das die Variable Zellwert
gesetzt wird, sonst gibt's Probleme wenn der User sofort nach dem
Öffnen eine Eingabe macht und Dein Makro anspringt.

Andreas.

Ähnliche fragen