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

Wie nützlich finden Sie diesen Tipp?

	1	2	3	4	5
Weniger nützlich						Sehr nützlich

Bitte teilen Sie uns mit, warum Sie die Seite so bewertet haben. (optional)