Hilfe beim ergänzen des Zeitmakros
Josef_T
komme hier leider nicht mehr weiter-und bitte um Hilfe bei der Ergänzung des Makros.
Ich möchte erreichen, wenn in Spalte 3 das Datum und die Uhrzeit eingetragen wird, in Spalte 4, sieben Stunden
auf die Uhrzeit aus Spalte 3, dazu gerechnet und eingetragen wird.
Der Knaller wäre noch, wenn in Spalte 4 die sieben Stunde plus erreicht ist, das sich die Zelle gelb unterlegt.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("a8:a100")) Is Nothing Then
Cells(Target.Row, Target.Column + 2) = Format(Now, "dd.mm.yyyy - hh:mm")
'Cells(Target.Row, Target.Column + 3) ' hier sollte bezogen auf Column 2, plus sieben Stunden _
ermittelt werden
Cells(Target.Row, Target.Column + 4) = Environ("username")
End If
End Sub
Wenn das überhaupt machbar ist, bitte ich um einen Tipp oder Lösung.Danke
Gruß
Josef