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.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen