Datum mit VBA in Zelle schreiben
02.01.2021 01:13:30
Clemens
Ich habe eine Tabelle, in dem ich in einer Spalte einen Wert eintrage, und über VBA automatisch in einer anderen Spalte der aktuelle Zeitpunkt (Datum und Zeit) eingetragen wird. Dies wird über diesen Code erreicht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G16:G639")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then
Target.Offset(0, -2).ClearContents
Else:
Target.Offset(0, -2).Value = Now
End If
End Sub
Ich möchte nun in diesem Tabellenblatt unabhängig voneinander mehrere dieser Dinge realisieren. Heißt sowohl in der bekannten Spalte (E) das Datum eintragen, wenn in Spalte G der Wert eingetragen wird. Aber auch, wenn in Spalte P ein Wert eingetragen wird in einer wiederum anderen Spalte (N) das Datum eintragen. Dies ist dann in noch vielen weiteren Spalten notwendig. Alle unabhängig voneinander. Geht das? Und wenn ja, wie?