Range Bereich erweitern
23.03.2019 11:26:35
Dirk
ich habe bislang folgende Lösung:
Wenn ich in einer Tabelle in den Spalte e bis h eine Änderung vornehme, wird das Datum in Spalte a auf das aktuelle Datum gesetzt.
Der Code den ich dafür nutze ist:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim y As Long
'If (Target.Cells.Count = 1) Then
If (Not Application.Intersect(Range("e:h"), Target) Is Nothing) Then
y = Target.Row
Range("a" & y).Value = Int(Now())
End If
'End If
End Sub
....klappt auch soweit wunderbar. Jetzt möchte ich den zu überwachenden Bereich aber auf den zusätzlichen Bereich aa bis ae ausdehnen, ich kriege die Erweiterung des Rangebereichs aber nicht hin.
Vielleicht weiß hier jemand Rat?
Vielen lieben Dank im Voraus!
Anzeige