Office 2007: automatisch aktuelles Datum einfügen

[Hennes]

Hallo zusammen,

ich hätte da mal gerne ein Problem.
Ich möchte automatisch in eine Zelle zB. A3 das aktuelle Datum einfügen lassen, sobald in B3 ein Eintrag vorgenommen wird.
Die Formel A3=wenn(B3="";"";Heute()) funktioniert hier leider nicht, weil mir hier jeden Tag das Datum wieder überschreben wird.
Ich möchte also Einträge von Heute mit dem heitigen Datum versehen haben, und von Gestern mi dem gestrigen Datum usw.

Kann mir jemand helfen???

Grüße Hennes

[gmg-cc]

Moin Hennes,

füge in das Modul der Tabelle diesen Code ein:

Code: [Auswählen]

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(0, 0) <> "B3" Then Exit Sub
   If Target = "" Then
      Range("A3") = ""
   Else
      Range("A3").Value = Date
   End If
End Sub

[Hennes]

Hallo Günther,

Super, Daumen hoch...!!!
Für die Beiden Zellen, A3 und B3 funktioniert das.
Wie kann ich das jetzt auf das gesamte Blatt, sprich auf die gesamte
Spalte B ab B3 und Spalte A ab A3 anwenden???

Gruß Hennes

[gmg-cc]

Moin Hennes,

dann sollte dieser Code hinhauen:

Code: [Auswählen]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 2 Then Exit Sub
   If Target = "" Then
      Target.Offset(0, -1) = ""
   Else
      Target.Offset(0, -1) = Date
   End If
End Sub

[Hennes]

Hallo Günther,

genial... genau so soll es sein...

Vielen Dank

[Hennes]

Hallo Günther,

kannst du mir eventuell auch bei meiner anderen Anfrage hier Thema "Makro" helfen???

Gruß Hennes

[lupo1]

Code: [Auswählen]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 2 Then Exit Sub
   If Target = "" Then
      Target.Offset(0, -1) = ""
   Else
      Target.Offset(0, -1) = Date
   End If
End Subist sehr übersichtlich strukturiert. Man könnte aber auch nehmen (ungetestet):

Code: [Auswählen]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 2 Then Target.Offset(0, -1) = Iif(Target = "", "", Date)
End Sub