Office: Wenn Wert dann Datum

Hallo

ich möchte eine Liste erstellen in der Seriennummern mitgeschrieben werden. Pro Zeile steht eine Seriennummer.
Wird eine Nummer (8 Stellig) in Spalte A eingetragen möchte ich in Spalte D das aktuelle Datum und die Uhrzeit anzeigen damit man sieht wieviele Nummern pro Stunde bearbeitet wurden.

Ich habe zwar bereits einige Fromeln gefunden konnte diese aber nicht richtig umwandeln sodass die bei mir gepasst hätten.

Ich benütze übrigens Excel 2000

Danke für eure Hilfe gleich mal im vorraus
stefan

 

Hallo!

Mit Formeln ist das leider auch nicht lösbar.
Dafür brauchst du VBA:

Rechtsklicke auf den Tabellenreiter deines Tabellenblatts und wähle Code anzeigen. Füge diesen Code in das Codefenster rechts ein:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Intersect(Columns(1), Target) Is Nothing Then Exit Sub
For Each Zelle In Target
If IsNumeric(Zelle) And Len(Zelle) = 8 Then Zelle.Offset(0, 3) = Now
Next Zelle
End Sub

Dieser Code springt nur an, wenn
- die Eingabe in Spalte A erfolgt
- die Eingabe eine Zahl ist
- die Zahl die Länge 8 hat

 

Hallo Schatzi

vielen Dank für die rasche Hilfe!
Hat einwandfrei funktioniert

fg Stefan