Datum/Uhrzeit automatisch eintragen

[Marius4444]

Hallo Forum,

ich wuerde gerne, nachdem ich in ein Feld einen Wert eingetragen habe, in dem Feld daneben Datum & Uhrzeit des Eintrags erscheinen lassen. Ich hab es schon mit einer kleinen IF() Anweisung probiert und NOW(), aber dann wird das Datum nach jeder Bearbeitung der Datei wieder aktualisiert und das moechte ich ja grade nicht.

Vielen Dank im Voraus fuer Hilfe

Marius

[Peter]

Hallo,

ich arbeite, wenn es um die Überwachung eines Bereiches geht, in der Regel mit einem VBA-Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
        Target.Offset(0, 1).ClearContents
        Else:
        Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy hh:mm"))
    End If
End Sub

Hier wird der Bereich von A1 bis A10 überwacht, das musst du noch auf deine Verhältnisse anpassen, und in B1 bis B10 dann das aktuelle Datum eingetragen.

Der Code selbst gehört in das Modul des entsprechenden Tabellenblattes:

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen

[Käpt'n Blaubär]

Hallo,

Der Code selbst gehört in das Modul des entsprechenden Tabellenblattes:

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen

Ergänzend aber wichtig:
... und dann das Ganze nicht mehr als *.xlsx sondern als *.xlsm oder *.xlsb speichern.
Sonst sind sie wieder futsch, die Makros.

[Marius4444]

jetzt sagt er mir Runtime Error 13 und markiert gelb:


Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy hh:mm"))

[Peter]

Hallo,

das kann ich nicht nachvollziehen - in der Beispielsmappe funktioniert das problemlos.

Hast du irgendwas am Code geändert? Steht der Code im richtigen Modul?

[Käpt'n Blaubär]

Hallo,

 Steht der Code im richtigen Modul?

wahrscheinlich schon, sonst wäre das Makro ja kaum angesprungen.
Aber Nachschauen schadet ja nicht.

bleibt die Frage:

Hast du irgendwas am Code geändert?

... ansonsten brauchen wir die Datei

[Marius4444]

Ja das passt alles.
Hab den Code so uebernommen ins Richtige Modul gesteckt und auf meinen Bereich angepasst.
Hab dein Beispiel geoeffnet und der selbe Fehler ist aufgetreten ohne das ich was geaendert habe.
Aber ich sehe dass es funktioniert und das ist genau der Code den ich brauche
Jetzt muss er nur noch bei mir laufen :DDD

[Marius4444]

Hier die Datei :)

[Peter]

Hallo,

deine Beispielsdatei funktioniert bei mir ohne Probleme. Ich bekomme keine Fehlermeldung.

Ich habe nicht viel Ahnung von VBA deswegen kann ich dir bei der Fehlersuche nicht weiterhelfen wenn der nachfolgende Hinweise nicht hilft:

Was mir aufgefallen ist: Du hast anscheinend ein englisches Excel.

Teste mal ob es hilft wenn du in der bemängelten Zeile das dd.mm.yy duch dd.MM.yy ersetzt.

[Marius4444]

Ja das zwar nicht aber Fehler ist trotzdem behoben

Es muss dd/mm/yy anstatt dd:mm:yy heissen -.-

Jetzt noch eine Frage: was muss ich aendern, dass das Datum links neben meinem Eintrag erscheint ?

Gruss

Marius