aktuelles Datum in Zelle stempeln

Du möchtest wenn in Spalte A ein Eintrag erfolgt, automatisch in Spalte B das aktuelle Datum daneben haben.

Eine einfache Wenn Funktion zB =wenn(A1=”";”";heute()) würde permanent aktualisiert werden.

Um dies zu vermeiden schreibst Du nachstehendes Makro ins Klassenmodul der jeweiligen Tabelle Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim bereich As Range Dim zelle As Range 'Bereich und Tabellenname anpassen Set bereich = Sheets("Tabelle1").Range("A1:A100") For Each zelle In bereich If Not IsEmpty(zelle) And IsEmpty(zelle.Offset(0, 1)) Then zelle.Offset(0, 1).Value = Date End If Next End Sub

 Share on Facebook

Read more http://vba-codeschnipsel.de/aktuelles-datum-in-zelle-stempeln/