Intersect Befehl erweitern
21.01.2019 08:46:23
Hartmut
wie kann ich nachfolgenden Intersectbefehl auf die Spalten AO; AX; AZ erweitern so das in der nachbarzelle (AP; AY; BA) bei Änderung das Datum eingetragen wird. Ein Danke schon jetzt für eure Hilfe.
Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else:
Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub
Gruß
Hartmut