Office: Datum automatisch eintragen

Hallo, benötige mal wieder Eure Hilfe. Habe hier im Forum ein VBA gefunden, welches das Datum in Spalte A automatisch einträgt, wenn in Spalte B ein Eintrag gemacht wird.
Nun möchte ich gern dieses erweitern aber von Markos schreiben habe ich null Plan.
Wenn nun in Spalte E ein Eintrag gemacht wird, soll in Spalte F das nun aktuelle Datum sich automatisch eintragen. Das Datum in Spalte A darf sich aber dabei nicht verändern. Habe mal eine stark verkleinerte Tabelle mit angehangen.

 

http://hajo-excel.de/gepackt/vba/datum_bei_aenderung.zip

 

Recht vielen Dank für die schnelle Antwort. Bearbeitung ist aktiviert aber leider funktioniert nicht eine Tabelle. Der definierte Bereich sind ja die gelben Spalten?

 

das konnte ich nicht sehen. Was wohl daran liegt das ich nicht auf fremde Rechner schaue.
In meiner Datei geht es.

Gruß Hajo

 

Hallo,

in der beiliegenden Datei ist per VBA eingebaut, dass in Spalte A bzw. Spalte F das heutige Datum eingefügt wird, falls in Spalte B bzw. Spalte E sich der Wert ändert.
Das jeweilige Datum wird entfernt, falls der Wert in Spalte B bzw. Spalte E entfernt wird.
Das Makro sieht folgendermaßen aus:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Cells.Count > 1 Then Exit Sub
 
  If Intersect(Target, Range("B:B")) Is Nothing Then
     If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
     SetDelDate Target, 1
  Else
     SetDelDate Target, -1
  End If
 
End Sub
Private Sub SetDelDate(Bereich As Range, RelOff As Integer)
  On Error GoTo Exit_SetDel
  Application.EnableEvents = False
  With Bereich
     If .Value = "" Then
        .Offset(0, RelOff).ClearContents
     Else
        .Offset(0, RelOff).Value = Date
     End If
  End With
Exit_SetDel:
  Application.EnableEvents = True
End Sub

Die Schwächen des vorher enthaltenen Makros habe ich beseitigt.

 

Vielen Dank, es funktioniert perfekt.