Thomas Risi Softwareentwicklung
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
|
Copyright © 2001 - by Thomas Risi