Zelle einmalig füllen ? >inside<
30.08.2004 15:44:09
Markus
ich habe folgendes simples Problem:
Zellen im Bereich A1 bis A10 sollen mit "X" gefüllt werden. Beim ersten Eintrag von X soll A20 mit dem aktuellen Datum gefüllt werden. Bei nachfolgenden X, auch zu einem späteren Zeitpunkt darf A20 nicht mehr überschrieben werden.
Also darf das aktuelle Datum nur beim ersten X in Zelle A20 geschrieben. Danach nicht mehr.
Hat jemand ne Idee wie man das lösen könnte?
Danke vielmals.
Gruß Markus
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich1 As Range
Set Bereich1 = Range("A1:A10")
If Not Intersect(Target, Bereich1) Is Nothing Then
If Target.Value = "X" Then
Range("A20") = Date
End If
End If