Office: Datum fixieren nach Eingabe in einer Zelle

TommyG. · 20. Oktober 2015

Hey, ich kenne mich mit VBA leider so gar nicht aus. Habe schon einiges hier über das Thema gelesen, allerdings schaffe ich es irgendwie nicht die Lösung entsprechend umzuzusetzen.

Es geht um den Bereich A8-A10000 in diese Zeilen wird jeweils ein Text geschrieben. Jetzt soll automatisch im Bereich P8-P10000 das Tagesdatum des Eintrages fixiert werden.

Beispiel

Zeile A2000 wird ein Text hinterlegt und in P2000 erscheint automatisch der 22.10.2015 (am liebsten wie folgt Formatiert falls das in der Programmierung bereits berücksichtigt werden muss "Oktober 2015")

Meine Excelliste ist bereits als Makro abgespeichert.

Hoffe ihr könnt mir da helfen und sage schonmal Danke für die Mühe.

Viele Grüße
Tommy

:)

EarlFred · 22. Oktober 2015

Hallo Tommy,

Habe schon einiges hier über das Thema gelesen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...dann auch garantiert die Rückfrage: Was soll passieren, wenn ein Wert wieder gelöscht wird?

Im Code wird das Datum wieder gelöscht.
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
On Error GoTo errExit
If Not Intersect(Target, Me.Range("A8:A10000")) Is Nothing Then
Application.EnableEvents = False
For Each c In Intersect(Target, Me.Range("A8:A10000"))
With Me.Cells(c.Row, 16)
If IsEmpty(c) Then
.ClearContents
Else
.Value = Date
.NumberFormat = "MMMM YYYY"
End If
End With
Next c
End If

errExit:
Application.EnableEvents = True
Set c = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meine Excelliste ist bereits als Makro abgespeichert.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was darf man sich darunter vorstellen?

Grüße
EarlFred

Office: Datum fixieren nach Eingabe in einer Zelle

Datum fixieren nach Eingabe in einer Zelle

Datum fixieren nach Eingabe in einer Zelle

Datum fixieren nach Eingabe in einer Zelle - Similar Threads - Datum fixieren Eingabe

Tabellenblatt-Name: aktuelles Datum im Blattregister anzeigen

aktuelles Datum im Schnellbaustein

Ahnengalerie sortieren

Datum in Formel ersetzen

Daten aus mehreren Blättern nach Datums einträgen suchen

Datum automatisch in eine Zelle eintragen und fixieren

Datum automatisch eintragen und "fixieren"