Bei „YXZ” in Zelle aktuelles Datum eintragen

Eine der Top-Ten-Fra­gen zu Excel: „Wenn ich in A2:A100 den Wert XYZ ein­trage, dann soll in Spalte B der gle­ichen Zeile das heutige Datum einge­tra­gen wer­den. Dieses darf sich natür­lich nicht verän­dern …” Der Datum­swert soll also fix­iert sein und sich nicht anpas­sen. – So etwas lässt sich nur per VBA (Makro) erledi­gen, denn die Tabel­len­funk­tion HEUTE() würde ja jeden Tag das dann aktuelle Datum anzeigen. Hier nun der Code:

Option Explicit
Private Sub WorkSheet_Change(ByVal Target As Range)
   Dim rngSpA As Range
   On Error GoTo ErrorHandler
   Set rngSpA = Range("A2:A100")
   If Not Intersect(Target, rngSpA) Is Nothing Then
      If UCase(Target) = "XYZ" Then
         Application.EnableEvents = False
         Cells(Target.Row, "B") = Date
      End If
   End If

ErrorHandler:
   Application.EnableEvents = True
   Set rngSpA = Nothing
End Sub

Auch wenn es nur einige Zeilen sind, kön­nen Sie den Code hier herun­ter­laden oder natür­lich auch hier direkt von der Seite kopieren. Anpas­sun­gen wer­den Sie natür­lich noch vornehmen müssen, aber das sollte Ihnen nicht schw­er fall­en, falls Sie auch nur einen Hauch vom Pro­gram­mie­ren ver­ste­hen. Falls nicht, sprechen Sie uns an und teilen Sie uns Ihre Wün­sche mit.

Möcht­en Sie das Ganze als Pro­tokol­lierung ein­er Änderung vornehmen und auch den Namen des Benutzers mit erfassen, dann schauen Sie doch auch ein­mal hier nach.

▲ nach oben …

Hat Ihnen der Beitrag gefallen?
Erleichtert dieser Beitrag Ihre Arbeit?

Dann würde ich mich über einen Beitrag Ihrer­seits z.B. 1,00 € freuen …