Excel Datum eintragen bei Änderung in Range

Private Sub Worksheet_Change(ByVal Target As Range)

'Nur wenn nur eine Zelle geändert wird

If Target.Count > 1 Then Exit Sub

'Datum in Saplte X eintragen

Range("X" & Target.Row) = Date

End Sub

Vielen Dank für die Antworten ,Also komme ich nur mit Makro weiter ?

Mit crtl F11 erstelle ich ja eine Makro arbeitsmappe dann Zeile anklicken und ausführen.

Name vergeben und dann weiter erstellen um in den VB editor zu gelangen.

Sub Datum ( Dim Datum As Date

Datum = Now()

Range("A1").Value = Datum

Selection.NumberFormat = "dd/mm/yyyyy" )

if Range ("A1") = LÄNGE(A1)>000; Then Range ("B1") = Date

End Sub

Dann speichern ?

und alt F4 um Vb zu schliessen

Wie wende ich das nun auf mein Excel .

Hallo,



wenn du die Tabelle erst erstellst, könntest du den Code auch in das Codefenster des entsprechenden Blattes einfügen, damit in B automatisch das Datum eingetragen wird, wenn A1 ausgefüllt wird.

Rechtsklick auf den Tabellenblattreiter => Code anzeigen und folgenden Code in das Codefenster einfügen:



Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:A")) Is _

Nothing Then Exit Sub



Target.Offset(, 1) = IIf(Len(Target) > 0, Date, "")

End Sub



Wenn die Tabelle schon besteht, kannst du auch zuerst das andere Makro laufen lassen, um alle bestehenden Einträge mit Datum zu versehen und danach das Worksheet_Change-Ereignis einfügen, damit ab dann bei jedem Eintrag das Datum erstellt wird.



Mit freundlichen Grüßen

Clais

Also wegen der ganzen Farben, eine Zellbereich als Tabelle zu formatieren ist da der richtige Weg.

Der Tabelle macht es nichts wenn Du eine Zeile einfügst, die Farben passt sie selber an.

Und einen Button um eine Zeile hinzufügen brauchst Du auch nicht, sobald Du unterhalb der letzten Zeile was reinschreibst vergrößert sich die Tabelle von alleine.

Bleibt also nur ein automatisches Datum in der ersten Spalte. Dazu kopierst Du den Code unten in das Codemodule des Tabellenblattes (nachdem Du die Tabelle erstellt hast).

Andreas.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Tabelle As ListObject

Dim Datum As Range

'Nur wenn eine Zelle geändert wird

If Target.Count > 1 Then Exit Sub

'Nur innerhalb einer Tabelle

If Target.ListObject Is Nothing Then Exit Sub

Set Tabelle = Target.ListObject

'Erste Spalte aktuelle Zeile ist das Datum

Set Datum = Intersect(Tabelle.ListColumns(1).Range, Target.EntireRow)

'Leer?

If IsEmpty(Datum) Then

'Heute eintragen

Application.EnableEvents = False

Datum = Date

Application.EnableEvents = True

End If

End Sub

Hallo Jochen,

da das Excel-Datum fälschlicherweise annimmt, dass 1900 ein Schaltjahr gewesen ist, stimmen die Werte bis 01.03.1900 nicht bei allen Berechnungen.

Probiere:

Sub Test()

Dim Datum As Date

With Sheets(1).Range("A1")

    Datum = IIf(.Value < 61, .Value + 1, .Value)

End With

MsgBox Datum

End Sub

Claus