Vielen Dank,
Roger
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZ As Long
If Target.Address "$B$6" Then Exit Sub
lngZ = Cells(Rows.Count, 1).End(xlUp).Row + 1
Application.EnableEvents = False
Cells(lngZ, 1) = Now
Cells(lngZ, 2) = Range("B6").Value
Application.EnableEvents = True
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZ As Long
If Target.Address "$B$6" Then Exit Sub
lngZ = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lngZ, 2) Range("B6") Then
Application.EnableEvents = False
Cells(lngZ + 1, 1) = Now
Cells(lngZ + 1, 2) = Range("B6")
Application.EnableEvents = True
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort