2 Worksheet_Change-Ereignisse
24.08.2020 09:40:31
Heinz
mit dem nachfolgenden Code (aus diesem Forum) wird bei einer Änderung einer Zelle im Bereich E8:E33 in der gleichen Reihe, 36 Zellen rechts davon, ein Zeitstempel gesetzt.
Wie kann ich im gleichen Tabellenblatt daneben einen 2. Zeitstempel erhalten, wenn eine Zelle im Bereich X8:X33 geändert wird?
Über Eure Unterstützung würde ich mich sehr freuen!
Beste Grüsse
Heinz
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range
If Target.Row 1 Then Exit Sub
Set RaBereich = Range("E8:E33")
Application.EnableEvents = False
If Not Intersect(Target, RaBereich) Is Nothing Then
Target.Offset(0, 36) = Format(Now, "hh:mm:ss")
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Anzeige