Intersect und Wenn formel in Nachbarzelle
31.01.2019 08:11:30
Hartmut
ich benutze folgenden Eintrag für eine Datum eintragung.
Wenn ich jedoch eine Wennformel zur automatischen Berechnung des Eintrages in Spalte "N" vornehme dann geschieht nichts. Wie müsste ich die Eintragung ändern das trotzdem das Datum in die Nachbarspalte bzw. in die Nachbarzelle eingetragen wird.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N4:N5000")) Is Nothing And Target.Count = 1 Then
Target.Offset(, 1) = Date
End If
End Sub
Danke an die tollen Helfer in diesem Forum.
Verschneite Grüße aus LU
Hartmut