2x Datum fixieren - VBA Code
26.11.2018 20:30:10
Moepel
Ich habe folgendes Excel"Problem":
Ich moechte, dass das heutige Datum automatisch hinzugefuegt wird, sobald ein Eintrag erfolgt.
Mit folgendem Code habe ich bereits das Datum in der Spalte A hingekriegt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myCell As Range
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each myCell In Intersect(Target, Range("B:B"))
Cells(myCell.Row, 1).Value = Now
Cells(myCell.Row, 1).NumberFormat = "mm/dd/yy hh:mm:ss"
Next myCell
Application.EnableEvents = True
End Sub
Jetzt moechte ich ein zweites, fixes, aber anderes Heute-Datum in Spalte I haben, wenn in Spalte G Ok aus einer drop-down-Liste ausgewaehlt wird.
Kann mir jemand bei dem Code weiterhelfen?
Beste Gruesse
Anzeige