Office: (Office 2013) Excel Änderungsdatum von Zellen anzeigen

Also im Zuge meiner Diplomarbeit müssen wir ein Excel Sheet führen wo wir unseren Vorschritt protokollieren können.
In diesem Excel Sheet haben wir mehrere Seiten wo ich auf jeder gern das Separate Änderungsdatum darstellen kann.

Ich verwende Excel 2013 und bin noch ein Noob in VBA

Ich bedanke mich schon im Vor-hinaus.

 

Hallo Daniel,

eine Möglichkeit könnte sein, in das Modul jeden Arbeitsblattes den folgenden Code einzufügen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    Me.Cells(1, 1) = Format(Now(), "dd.mm.yyyy")    ' nur Datum

End Sub

Wenn Du zusätzlich auch noch die Uhrzeit (Stunde und Minute) haben möchtest, sähe es so aus:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    Me.Cells(1, 1) = Now()                         ' Datum mit Uhrzeit

End Sub

Natürlich musst Du noch den Zellbezug anpassen.

 

Danke Funktioniert perfekt!! :)

Ich hätte jetzt noch eine andere Frage wie kann ich die Sachen die geändert wurden mehr oder weniger Highlighten

Danke schon mal im Vorhinein.

 

Hallo Daniel,

freut mich, dass es passt. ;)

Geänderte Werte "highlighten" ist äusserst vage beschrieben. Was stellst Du Dir darunter vor?

Auf Anhieb würde mir dazu einfallen, im "Selection_Change-Ereignis" bei jeder Zellauswahl den alten Zellwert abzufragen und in eine Variable zu speichern. Im "Worksheet_Change-Ereignis" müsste man dann vergleichen, ob sich der Wert geändert hat. Wenn ja, dann könnte man die Schrift- oder Hintergrundfarbe ändern, oder was auch immer.

Das ganze hat nur einen Haken:
Die Änderungen sind permanent, d.h. je nachdem wie oft und wieviel geändert wird, sieht man haufenweise "gehighlitete" Zellen, aber mann kann nicht erkennen von wann diese Änderungen sind, und ob der Wert schon mehrfach geändert wurde.

Wenn Du quasi eine Historie möchtest, würde ich die Änderungsdaten eventuell als Liste in den Zellkomentaren per Makro eintragen lassen.
Das ist aber etwas aufwändiger, und Du siehst dort dann auch nicht mehr die ehemaligen Werte, falls das wichtig sein sollte.

Wenn Du je Zelle eine komplette Historie brauchst, wirds richtig kompliziert, und man müsste sich was zurechtbasteln (Listen in zusätzlichen Blättern, die per Hyperlink oder Makro angezeigt werden können, o.ä.). Dafür müsste man aber auch Deinen Tabellenaufbau genau kennen (ginge nur mit Beispieldatei) und einiges an Zeit investieren.

 

1. Wenn das Änderungsdatum in jedem Tabellenblatt gespeichert werden soll, dann kannst du es dir ersparen, den Code in jedes Tabellenblatt zu integrieren - dazu gibt es das Workbook_SheetChange-Ereignis, welches im Codemodul DieseArbeitsmappe ansässig ist:

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    Sh.Range("A1") = Date
    Application.EnableEvents = True
End Sub

2. Excel bietet die komfortable Möglichkeit, Änderungen zu protokollieren - schaue hier: http://praxistipps.chip.de/excel-aenderungen-nachverfolgen-so-gehts_39996

Bis später,
Karin

 

Dankeschön Beverly,

wieder zwei neue Dinge gelernt.
;O)

 

Dankeschön hat mir sehr geholfen trotzdem hätte ich noch ein anderes Anliegen.

Also wir haben eine Excel Datei wo wir auf mehreren Seiten arbeiten.
Auf der ersten Seite ist alles was auf den anderen Seiten eingetragen wurde zusätzlich auch auf dieser Seite Zeitlich geordnet nun wollte ich fragen ob es irgendeine Möglichkeit gibt dies zu Automatisieren also das ich nur auf den anderen Seiten etwas eintrage und das automatisch auf der ersten Seite zeitlich angeordnet wird.

Bitte danke schon mal im vorraus :D

 

Hi,

das müsste schon zu machen sein, aber ohne deinen genauen Tabellenaufbau zu kennen ist es schwierig, etwas zum WIE zu sagen. Lade also bitte eine Beispielmappe hoch.

Bis später,
Karin

 

Hallo,

wollte nur eine Anmerkung geben.

wenn du das Makro:

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    Sh.Range("A1") = Date
    Application.EnableEvents = True
End Sub

einfügst, läuft es permanent im Hintergrund mit, das heißt du kannst in deiner Excel-Datei nie etwas rückgängig machen.

Besser ist vielleicht diese Variante:

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False

If Sh.Range("A1").Value <> Date Then
    Sh.Range("A1").Value = Date
End If

Application.EnableEvents = True
End Sub

Liebe Grüße

Linda

 

Hallo

Unter Excel gibt es unter dem Menüpunkt Überprüfen-> Änderungen -> Änderungen Nachverfolgen die Möglichkeit Änderungen zu Speichern, markieren und zu Protokollieren.

Gruß
Patrick