Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum aktualisieren, wenn Wert geändert wird

Datum aktualisieren, wenn Wert geändert wird
08.10.2008 01:11:34
Hans-Joachim
Hallo Freunde,
da hätte ich mal wieder ein Problem, das hoffentlich relativ einfach zu lösen ist.
In A2 steht ein Wert, etwa ein Zählerstand, den ich am 1.9.08 eingetragen habe; Datum in Zelle B2.
In B2 soll automatisch das Datum aktualisiert werden, wenn dieser Wert in A2 geändert wird, wenn nicht, soll das bisherige Datum (1.9.08) in Zelle B2 erhalten bleiben.
Ist das mit einem Makro oder einer Funktion möglich?
Ich freue mich auf eure Antworten.
Dank für die Bemühungen.
Viele Grüße Hans
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum aktualisieren, wenn Wert geändert wird
08.10.2008 01:49:12
Daniel
Hi
es ist beides möglich.
Makro-Lösungen findest du im Archiv, wenn du mal nach "änderungsdatum" suchst,
eine Formellösung ist hier beschrieben:
http://www.excelformeln.de/formeln.html?welcher=415
das bezieht sich zwar auf das festschreiben des Min- oder Max-Wertes, aber wenn du "<>" in den Formeln verwendest, kannst du das recht einfach an deine Aufgabe anpassen.
Gruß, Daniel
Anzeige
AW: Hat leider nicht geklappt
08.10.2008 15:51:00
Hans-Joachim
Hallo Daniel,
danke für die Anwort. Hat leider nicht geklappt.
Im Moment helfe ich mir mit einem kleinen Makro. Hat den Nachteil, dass ich zur Aktualisierung eine Schaltfläche brauche, um das Makro ablaufen zu lassen, welches auch erweitert werden muss, wenn noch Zeilen hinzukommen.

Sub Datum_ändern()
Application.ScreenUpdating = False
If [B2]  [A2] Then [C2] = [C1]: [A2] = [B2]
If [B3]  [A3] Then [C3] = [C1]: [A3] = [B3]
If [B4]  [A4] Then [C4] = [C1]: [A4] = [B4]
End Sub


Danke und Gruß
Hans

Anzeige
AW: Hat leider nicht geklappt
09.10.2008 11:07:44
Tino
Hallo,
so müsste es mit VBA gehen.

In DieseArbeitsmappe als Code, Tabelle entsprechend anpassen
Option Explicit 
 
Private Sub Workbook_Open() 
 MeinWert = Tabelle1.Range("A1").Value 
End Sub 


In das
entsprechende

Tabellenblatt
als Code

Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
 If Intersect(Target, Range("A1")) Is Nothing Then 
  Application.EnableEvents = False 
  If Target <> MeinWert Then Range("B1") = Date 
  Application.EnableEvents = True 
 End If 
End Sub 
 
 


In ein Modul

Option Explicit 
 
Public MeinWert As Variant 


Gruß Tino

Anzeige
AW: Hat jetzt geklappt
09.10.2008 12:48:20
Hans-Joachim
Hallo Tino,
vielen Dank für die ausführliche Beschreibung.
Problem gelöst.
Dank und Gruß
Hans
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Datum automatisch aktualisieren bei Änderung in Excel


Schritt-für-Schritt-Anleitung

Um das Datum in einer Excel-Zelle automatisch zu aktualisieren, wenn sich der Wert in einer anderen Zelle ändert, kannst du folgende Schritte ausführen:

  1. Öffne Excel und lade deine Arbeitsmappe.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Füge den folgenden Code in das entsprechende Tabellenblatt ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Me.Range("A2")) Is Nothing Then
           Application.EnableEvents = False
           Me.Range("B2").Value = Now  ' Aktuelles Datum und Uhrzeit einfügen
           Application.EnableEvents = True
       End If
    End Sub
  4. Schließe den VBA-Editor und kehre zu deinem Arbeitsblatt zurück.

  5. Ändere den Wert in Zelle A2. Das Datum in B2 sollte sich nun automatisch aktualisieren.

Diese Methode nutzt die Worksheet_Change-Ereignisprozedur, um das Datum automatisch zu aktualisieren, wenn der Wert in Zelle A2 geändert wird.


Häufige Fehler und Lösungen

  • Das Datum wird nicht aktualisiert: Stelle sicher, dass die Makros in Excel aktiviert sind. Du kannst dies unter Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen überprüfen.

  • Das Datum wird nicht in der gewünschten Zelle aktualisiert: Überprüfe den Code und stelle sicher, dass die Zellreferenzen korrekt sind (z.B. A2 und B2).


Alternative Methoden

Falls du keine VBA-Makros verwenden möchtest, kannst du auch eine Formel verwenden, um das Datum bei einer Änderung anzuzeigen. Allerdings bleibt das Datum dann statisch und wird nicht dynamisch aktualisiert.

Ein Beispiel wäre:

=IF(A2<>"", TODAY(), "")

Diese Formel zeigt das heutige Datum an, solange A2 nicht leer ist, wird jedoch nicht bei Änderungen aktualisiert.


Praktische Beispiele

  1. Zählerstand aktualisieren: Wenn du in Zelle A2 einen Zählerstand hast, wird das Datum in B2 aktualisiert, sobald du den Zählerstand änderst.
  2. Projektmanagement: In einem Projektmanagement-Dokument kann das Änderungsdatum automatisch aktualisiert werden, wenn der Fortschritt in einer bestimmten Zelle aktualisiert wird.

Tipps für Profis

  • Mehrere Zellen überwachen: Du kannst die Intersect-Funktion erweitern, um mehrere Zellen gleichzeitig zu überwachen.

  • Datum und Uhrzeit: Verwende Now, um sowohl das Datum als auch die Uhrzeit einzufügen, falls notwendig.

  • Namen verwenden: Benenne deine Zellen oder Bereiche, um den Code übersichtlicher zu gestalten.


FAQ: Häufige Fragen

1. Wie kann ich das Datum in einer bestimmten Formatierung anzeigen?
Du kannst das Datum formatieren, indem du die NumberFormat-Eigenschaft in VBA verwendest:

Me.Range("B2").NumberFormat = "dd-mm-yyyy"

2. Funktioniert dies in allen Excel-Versionen?
Ja, die beschriebenen Methoden sind in den gängigen Excel-Versionen (Excel 2010 und neuer) anwendbar.

3. Was passiert, wenn ich die Datei speichere?
Das Datum bleibt unverändert, es sei denn, du hast das Makro so eingestellt, dass es beim Speichern ausgeführt wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige