Datum in Spalte E bei Änderung in Sp. A-D

Hallo Ihr alle;
ich wäre für Hilfe bei meinem Problem sehr dankbar.
Folgendes: Ich will ein Tabellenblatt auf Änderungen überwachen:
Das heißt wenn in Spalte A:D in einer Zeile eine Änderung vorgenommen wird soll in Spalte E das Datum der Änderung erscheinen. Es geht zwar mit folgendem Code -nur kann ich jetzt keine neuen Zeilen einfügen, der Code erlaubt das nicht.
Da der Code nicht von mir ist und ich Ihn auch nicht ganz verstehe, hoffe ich Ihr könnt mir helfen.
Also wie muß ich Ihn ändern damit ich auch Zeile einfügenmachen kann ?
Vielen Dank
Die Manu


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim varAlt As Variant
Dim varNeu As Variant
If Not Application.Intersect(Target, Columns("A:D")) Is Nothing Then
varNeu = Target
On Error GoTo Ende
Application.EnableEvents = False
Application.Undo
varAlt = Target
Target = varNeu
If varAlt <> varNeu Then Target.Offset(0, 4) = Date
End If
Ende:
Application.EnableEvents = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim varAlt As Variant Dim varNeu As Variant If IsNumeric(Left(Target.Address(0, 0), 1)) Then Exit Sub If Not Application.Intersect(Target, Columns("A:D")) Is Nothing Then varNeu = Target On Error GoTo Ende Application.EnableEvents = False Application.Undo varAlt = Target Target = varNeu If varAlt <> varNeu Then Target.Offset(0, 4) = Date End If Ende: Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim varAlt As Variant Dim varNeu As Variant If IsNumeric(Left(Target.Address(0, 0), 1)) Then Exit Sub If Not IsNumeric(Right(Target.Address(0, 0), 1)) Then Exit Sub If Not Application.Intersect(Target, Columns("A:D")) Is Nothing Then varNeu = Target On Error GoTo Ende Application.EnableEvents = False Application.Undo varAlt = Target Target = varNeu If varAlt <> varNeu Then Target.Offset(0, 4) = Date End If Ende: Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim rSchnitt As Range, c As Range Dim t As Date t = Now Set rSchnitt = Application.Intersect(Target, Columns("A:D")) On Error GoTo ErrorHandler Application.EnableEvents = False If Not rSchnitt Is Nothing Then For Each c In rSchnitt Cells(c.Row, 5).Value = t Next c End If Application.EnableEvents = True Exit Sub ErrorHandler: Application.EnableEvents = True MsgBox Err.Description, , Err.Number End Sub

Beliebteste Forumthreads (12 Monate)

Datum in Spalte E bei Änderung in Sp. A-D

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum in Spalte E bei Änderung in Sp. A-D

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread