Aktuelles Datum in Excel bei Zeilenänderung

Arne2007 · 22.06.2007

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(A5

5))
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

Matjes · 22.06.2007

Hallo Arne,

dir kann geholfen werden

Die folgende Funktion in der Codeseite deines Tabellenblattes sollte das gewünschte realisieren.
(Die alten Funktionen müssen gelöscht werden.)

Gruß Matjes

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

 Const cERSTE_ZEILE = 5
 Const cSPs1 = A:D
 Const cSPs2 = F:AD
 Const cSP_DATUM = E
 
 Dim r As Range
 Dim x As Long
  
 Set r = Application.Intersect(Target, Range(cSPs1))
 If r Is Nothing Then Set r = Application.Intersect(Target, Range(cSPs2))
 If r Is Nothing Then Exit Sub
 If r.Row &lt; cERSTE_ZEILE Then Exit Sub
 
 For x = r.Row To r.Row + r.Rows.Count - 1
  Range(cSP_DATUM &amp; x).Value = Date
 Next
 
AUFRAEUMEN:
 Set r = Nothing
End Sub

Arne2007 · 22.06.2007

Hallo Matjes,

erstmal vielen Dank für die Antwort.
Ich habe deinen Code in das Tabellenblatt eingefügt und oben das Worksheet durch den Namen des Tabellenblattes ersetzt.
Bei Änderungen passiert leider nichts

.
Hast Du eine Idee was ich falsch mache?

Gruß,

Arne

Matjes · 22.06.2007

Hallo Arne,

also:

gehe auf das Blatt, welches überwacht werden soll. Dann markiere die Blattlasche mit der rechten Maustaste und wähle->Code anzeigen'. In dem Fenster, das sich öffnet, löscht du allen Code - blitzblank. Dann fügst du den Code aus dem grauen Fenster komplett in dieses geputzte Fenster per Copy und Paste ein - nix ändern !

Dann ausprobieren ...

Gruß Matjes

Arne2007 · 22.06.2007

FUNKTIONIERT!

Vielen DANK

Aktuelles Datum in Excel bei Zeilenänderung

Arne2007

Matjes

Arne2007

Matjes

Arne2007

Aktuelles Datum in Excel bei Zeilenänderung

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums