Dateneingabe protokollieren

Question

Hallo,

bin neu hier und habe folgende Frage:

Ist es möglich (am besten mit Hilfe einer Formel), dass bei einer Eingabe von Daten in eine Zelle (z. B. B1) automatisch das Eingabedatum in einer anderen Zelle (z. B. in C1) protokolliert wird. Ich möchte einfach nur, dass für jede Zelle ersichtlich ist, wann der Inhalt dieser Zelle geändert wurde.

Answer 1

Hallo Unbekannte(r),
bist du auch der "kloot" (fast die gleiche Anfrage)?
Schau dir mal seine Anfrage an.

Gruss Rolf

Answer 2

Hallo Oswald,

es geht sowohl mit Formel als auch mittels Makro:

Formel in C1:

=B1&" "&TEXT(JETZT();"TT.MM.JJJJ hh:mm:ss")&"Uhr"

oder Makro:

Private Sub Worksheet_Change(ByVal r As Range)
s = r.Column
rr = r.Row
If s = 2 Then
Cells(rr, s + 1).Value = Str(Date) + " | " + Str(Time)
End If
End Sub


schöne Grüße

Paul1

Answer 3

An "meinTipp",

Hallo Rolf,

nein ich war bisher nicht in diesem Forum. Wie finde ich die Anfrage von "kloot" ?

Oswald

Answer 4

Hallo Paul1,

die Formel löst das Problem nicht. Das Feld in C1 aktualisiert sich bei jeder Änderung der Tabelle. Es soll dort aber nur das Datum und die Uhrzeit sich aktualisieren, wenn in Zelle B1 der Inhalt geändert wurde, nicht bei Änderung in anderen Zellen.

Mit Makros habe ich noch keine Erfahrung. Wie bekomme ich das Makro zum laufen?

Gruß Oswald

Answer 5

Hallo Oswald,

Du hast völlig recht, wenn man in einer anderen Zelle der Spalte B einen Wert eingibt ändert sich komischerweise das aktuelle Datum samt Uhrzeit in sämtlichen Zellen, bin auch erst jetzt draufgekommen und versuche es hinzubekommen.

Mit dem Makro kann Dir das nicht passieren!

Zu Deiner Frage wegen des Einfügens des Makros:

>Klicke unten z.B. Tabelle 1 mit der rechten Maustaste an
>Code anzeigen anklicken
>in dem geöffneten Fenster den kopierten Code einfügen
>Schließen

gutes Gelingen!

schöne Grüße

Paul1

Excel 2003/XP prof.

Answer 6

Hallo again,
warum findest du den Thread von kloot nicht. Du bist doch hier im Forum.
Unter der Spaltenüberschrift "Von" steht doch der Name des TO.
Er ist immer noch hier auf der ersten Seite zu sehen.
Für dich der Link:
www.supportnet.de/t/2357668
Ersetze dort nur
Cells(rgZelle.Row, 1).Value = Now
durch
Cells(rgZelle.Row, 3).Value = Now
Wenn du aber nur die Änderung in Zelle B1 verfolgen willst, so benutze dies:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg As Range
If rg.Address = "$B$1 Then
Cells(rgZelle.Row, 3).Value = Now
End If
End Sub

Direkt hier herein geschrieben. Schreibfehler sind nicht ausgeschlossen.

Gruss Rolf

Answer 7

P.S.
ein " vergessen
If rg.Address = "$B$1" Then

Answer 8

Bin Heute wohl nicht mehr in Form.
Der Code muss so lauten

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Cells(rgZelle.Row, 3).Value = Now
End If
End Sub

Gruss Rolf