- #1
A
Arne2007
Mitglied
Themenersteller
- Dabei seit
- 22.06.2007
- Beiträge
- 14
- Reaktionspunkte
- 0
Hallo zusammen,
ich möchte das das aktuelle Datum in Zelle A5 angezeigt wird, wenn sich in der Zeile (A5-D5 und F5-AD5) etwas geändert hat.
Dieses Problem habe ich über
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range(A55))
If Not isect Is Nothing Then
Range(E5).Value = Date
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range(F5:AD5))
If Not isect Is Nothing Then
Range(E5).Value = Date
End If
End Sub
gelöst.
Ich weiß nun nicht, wie ich das für alle weiteren Zeilen unterhalb von der Zeile 5 realisieren könnte.
Vielen Dank im voraus für euere Unterstützung ,
Arne
ich möchte das das aktuelle Datum in Zelle A5 angezeigt wird, wenn sich in der Zeile (A5-D5 und F5-AD5) etwas geändert hat.
Dieses Problem habe ich über
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range(A55))
If Not isect Is Nothing Then
Range(E5).Value = Date
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range(F5:AD5))
If Not isect Is Nothing Then
Range(E5).Value = Date
End If
End Sub
gelöst.
Ich weiß nun nicht, wie ich das für alle weiteren Zeilen unterhalb von der Zeile 5 realisieren könnte.
Vielen Dank im voraus für euere Unterstützung ,
Arne