ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. Wenn das so ist, soll die aktuelle Zeit eingetragen werden. Wenn nicht, dann soll keine Eintragung erfolgen.
Ich habe bereits folgende Zeilen die auch den Eintrag aber nicht die Prüfung realisieren.
Private Sub Workbook_Open()
Sheets(Month(Date) + 1).Activate
ActiveSheet.Cells(WorksheetFunction.Match(CDbl(Date), _
ActiveSheet.Range("B:B"), 0), 5) = Format(Now, "hh:mm")
ActiveWorkbook.Save
Application.WindowState = xlMinimized
End Sub
Danke für die Hilfe
Lieben Gruß
Neptune