ich möchte gerne eine Zelle mit 2 anderen Zellen "verlinken". Dabei soll immer der Wert gezogen werden, der sich zuletzt verändert hat. Wie lautet hierzu der Befehl?
Vielen Dank!
Private Sub Worksheet_Change(ByVal Target As Range)
Abgleich
End Sub
Als Code in ein allgemeines Modul:
Dim Zelle_1_act
Dim Zelle_2_act
Dim Zelle_1_old
Dim Zelle_2_old
Dim Zelle_1_time
Dim Zelle_2_time
Public Sub Abgleich()
Zelle_1_act = Worksheets(1).Range("C5")
Zelle_2_act = Worksheets(1).Range("C6")
If Zelle_1_act Zelle_1_old Then
Zelle_1_time = Now
Zelle_1_old = Zelle_1_act
Worksheets(1).Range("D5") = Zelle_1_time
End If
If Zelle_2_act Zelle_2_old Then
Zelle_2_time = Now
Zelle_2_old = Zelle_2_act
Worksheets(1).Range("D6") = Zelle_2_time
End If
End Sub
Dieser Code vergleich C5 (Zelle 1) und C6 (Zelle 2) auf Veränderungen. Wenn etwas geändert wurde, wird die aktuelle Zeit nach D5 oder D6 geschrieben.