Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Hennes am Januar 03, 2017, 21:55:41 Nachmittag

Titel: Office 2007: automatisch aktuelles Datum einfügen
Beitrag von: Hennes am Januar 03, 2017, 21:55:41 Nachmittag

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

Titel: Antw:Office 2007: automatisch aktuelles Datum einfügen
Beitrag von: gmg-cc am Januar 03, 2017, 23:02:35 Nachmittag

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

Titel: Antw:Office 2007: automatisch aktuelles Datum einfügen
Beitrag von: Hennes am Januar 04, 2017, 09:41:05 Vormittag

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

Titel: Antw:Office 2007: automatisch aktuelles Datum einfügen
Beitrag von: gmg-cc am Januar 04, 2017, 10:17:28 Vormittag

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

Titel: Antw:Office 2007: automatisch aktuelles Datum einfügen
Beitrag von: Hennes am Januar 04, 2017, 12:56:32 Nachmittag

Hallo Günther,

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

Vielen Dank

Titel: Antw:Office 2007: automatisch aktuelles Datum einfügen
Beitrag von: Hennes am Januar 05, 2017, 20:22:18 Nachmittag

Hallo Günther,

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

Gruß Hennes

Titel: Antw:Office 2007: automatisch aktuelles Datum einfügen
Beitrag von: lupo1 am Januar 06, 2017, 08:49:49 Vormittag

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