Datum von Heute mit CDate(Now)
Heute
Ich möchte,wenn in Spalte E oder F ein "x" eingetragen wird,das in Spalte A das Datum von heute eingetragen wird,und in Spalte B die aktuelle Uhrzeit.
Angefangen sollte ab Zelle 5 werden bis zum Schluß der Exeltabelle.
Dabei sollte es egal sein ob "x" klein oder groß geschrieben wird.
Eine Deluxe Lösung wäre,wenn schon ein "x" in E oder F eingetragen wurde,und dies im nachhinein gelöscht wird. MsgBox"Soll das "x" gelöscht werden.
Komme dabei nicht klar.
Könnte mir bitte dabei bitte jemand weiterhelfen ?
Danke Heinz
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Sheets("Sortierrapport").Range("A5:A5000").FormulaR1C1 = "=IF(OR(RC[4]=""x"",RC[5]=""x""), NOW( _
),"""")"
End Sub