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

Forumthread: Datum automatisch aktualisieren bei einer Änderung

Datum automatisch aktualisieren bei einer Änderung
14.06.2019 15:29:02
Michel
Hallo zusammen,
Ich habe eine Tabelle, in welcher ich verschiedene Einträge habe. Wenn einer dieser Einträge geändert wird, möchte ich in der jeweiligen Spalte das Datum automatisch aktualisert haben.
https://www.herber.de/bbs/user/130389.xlsx
Siehe beispiel angehängt.
Wenn ich in Spalte A2 bis z.B. E11 (kann unendlich lang werden) was ändere, soll in der jeweiligen SPalte F das dazugehörige änderungsdatum stehen.
ist das möglich?
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum automatisch aktualisieren bei einer Änderung
14.06.2019 15:41:16
Torsten
Hallo,
ich denke, dass wird nur mit VBA gehen.
Siehe deine Datei als .xlsm zurueck.
Gruss Torsten
https://www.herber.de/bbs/user/130391.xlsm
AW: Datum automatisch aktualisieren bei einer Änderung
14.06.2019 15:48:23
Michel
Hoy Torsten,
Super vielen Dank! =)
Weisst du noch, wie ich auch gleichzeitig nach dem aktuellsten Datum filtern lassen kann, sodass dass aktuellest zuoberst ist?
Vielen Dank
Michel
Anzeige
AW: Datum automatisch aktualisieren bei einer Änderung
14.06.2019 15:48:25
Michel
Hoy Torsten,
Super vielen Dank! =)
Weisst du noch, wie ich auch gleichzeitig nach dem aktuellsten Datum filtern lassen kann, sodass dass aktuellest zuoberst ist?
Vielen Dank
Michel
AW: Datum automatisch aktualisieren bei einer Änderung
17.06.2019 09:01:50
Torsten
Hallo Michel,
sorry fuer die verspaetete Antwort. Ja klar. Erweitere den Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a  As Long, x As Long
a = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Target, Range("A:E")) Is Nothing Then
Cells(Target.Row, 6) = Date
Else
Exit Sub
End If
With Sheet1
x = .Range("F" & Rows.Count).End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Range("F2"), SortOn:=xlSortOnValues, Order:=xlDescending,  _
DataOption:=xlSortTextAsNumbers
With .Sort
.SetRange Range("A2:F" & x)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Gruss Torsten
Anzeige
AW: Datum automatisch aktualisieren bei einer Änderung
17.06.2019 19:42:35
Michel
Hoy Torsten,
Vielen Dank für dein Code.
Leider funktioniert dies irgend wie bei mir nicht.
Ich habe mal dein Code auf mein reales Beispiel angepasst.
https://www.herber.de/bbs/user/130443.xlsm
Jedoch stürzt bei mir Excel immer wieder ab wenn ich eine Änderung vornehmen.
Weisst du wieso?
Vielen Dank
Liebe GRüsse
Michel
Anzeige
AW: Datum automatisch aktualisieren bei einer Änderung
18.06.2019 09:09:37
Torsten
Hallo Michel,
nein absolut keine Ahnung, bei mir hat es ohne Probleme funktioniert. Ich habe aber den Code, den ich dir geschickt habe nochmal in deine neue Datei kopiert und abgeaendert und es funktioniert. Excel ist schon manchmal eigenartig.
https://www.herber.de/bbs/user/130450.xlsm
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Datum automatisch aktualisieren bei einer Änderung in Excel


Schritt-für-Schritt-Anleitung

Um das Datum automatisch zu aktualisieren, wenn eine Zelle in Excel geändert wird, kannst Du folgenden VBA-Code verwenden:

  1. Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

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

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("A:E")) Is Nothing Then
            Cells(Target.Row, 6) = Date
        End If
    End Sub
  4. Schließe den VBA-Editor und kehre zu Deiner Excel-Tabelle zurück.

  5. Teste den Code, indem Du eine Änderung in den Zellen A bis E vornimmst. Das Datum sollte automatisch in der entsprechenden Zelle der Spalte F erscheinen.


Häufige Fehler und Lösungen

  • Excel stürzt ab: Wenn Du nach der Implementierung des Codes Probleme mit Excel hast, kann dies an anderen Makros oder an der Excel-Version liegen. Stelle sicher, dass Du alle anderen Makros deaktivierst und es mit einer einfachen Datei versuchst.

  • Datum wird nicht aktualisiert: Überprüfe, ob der Code im richtigen Arbeitsblatt-Modul eingefügt ist. Der Code sollte im Modul des spezifischen Arbeitsblatts sein, nicht im allgemeinen Modul.


Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch die WENN-Funktion in Kombination mit HEUTE nutzen:

  1. Verwende in einer Zelle die Formel:

    =WENN(A2<>"";HEUTE();"")

    Diese Formel zeigt das aktuelle Datum an, wenn in Zelle A2 ein Wert eingegeben wird. Beachte jedoch, dass das Datum nicht automatisch aktualisiert wird, wenn sich die Zelle ändert.


Praktische Beispiele

Angenommen, Du hast eine Excel-Tabelle, in der Du Änderungen an verschiedenen Produkten verfolgst. Wenn Du beispielsweise in Zelle A2 den Produktnamen änderst, möchtest Du in Zelle F2 das aktuelle Datum sehen.

  • Fülle die Zellen A2 bis E2 mit Daten und ändere einen Wert in A2. Das Datum sollte automatisch in F2 erscheinen.

Tipps für Profis

  • Um das Aktualisieren des Datums bei Änderungen in mehreren Zellen zu optimieren, kannst Du den Bereich in der Intersect-Funktion anpassen. Statt Range("A:E") kannst Du auch spezifische Zellen wie Range("A2:E100") verwenden.

  • Nutze Application.EnableEvents = False am Anfang des Codes, um zu verhindern, dass der Worksheet_Change-Ereignis erneut ausgelöst wird, während das Datum aktualisiert wird. Vergiss nicht, es am Ende wieder auf True zu setzen.


FAQ: Häufige Fragen

1. Wie aktualisiert sich das Datum in Excel automatisch?
Durch die Verwendung von VBA kannst Du das Datum automatisch einfügen, wenn eine Zelle geändert wird. Der Code überprüft, ob eine Zelle in einem bestimmten Bereich (z.B. A bis E) geändert wurde.

2. Kann ich das Datum beim Speichern aktualisieren?
Ja, Du kannst den Code im Workbook_BeforeSave-Ereignis hinzufügen, um das Datum beim Speichern der Datei zu aktualisieren.

3. Gibt es eine Möglichkeit, das Datum nicht automatisch zu aktualisieren?
Ja, Du kannst den Code anpassen, um das Datum nur unter bestimmten Bedingungen oder in bestimmten Zellen zu aktualisieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige