Thomas Risi Softwareentwicklung

Wert in Zelle einfrieren

Entstanden aus einer Frage in einem Forum ...

In Zelle "A1" wird ein Datum eingegeben. Nun soll dieses Datum nach Zelle "A2" kopiert werden, und darf dann auch nicht mehr geändert werden. Hier eine Lösung, die das Change-Event des Tabellenblattes auswertet.

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "A1" Then If IsDate(Target) And Range("A2") = "" Then Range("A2") = Target End If End If End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)