Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum-Aktuellisierung

Forumthread: Datum-Aktuellisierung

Datum-Aktuellisierung
02.07.2004 08:05:39
Thomas
Hallo Leute!
Ich sitze hier mit einem Problem vor meinem PC...
-wollte mal nachfragen, ob es auf exel eigentlich die Möglichkeit gibt, dass man auf Zeilen bezogen, ein Feld erzeugen kann, das eine "Datum-Aktuellisierung" vornimmt?
Beispiel: Ich bearbeite in Zeile 1 Feld A und in Feld B,in der selben Zeile wird das Datum aktuallisiert.
Vielleicht gibt es jemand, der mir dabei helfen kann?
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum-Aktuellisierung
02.07.2004 08:13:17
eres
Moin Thomas,
probiers mal so:

Private Sub worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then    ' Der QuellPFAD wurde geändert
Application.EnableEvents = False
Range("B1").Value = Date
Application.EnableEvents = True
End If
End Sub

Gruss
eres
Anzeige
AW: Datum-Aktuellisierung
02.07.2004 08:55:37
Harald
Hallo Thomas,
diese Lösung gilt für Änderungen in Spalte A. Es wird jeweils im rechten Feld das Datum der Änderung eingetragen.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("A:A")
'ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 1) = Date
Next RaZelle
'ActiveSheet.Protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Gruß
Harald
Anzeige
AW: Datum-Aktuellisierung
02.07.2004 09:07:51
Thomas
Vielen Dank Harald!
merci für Rückmeldung :-) o.T.
02.07.2004 09:12:20
Harald
AW: Datum-Aktuellisierung
02.07.2004 09:03:50
Thomas
Vielen Dank eres,
werde mir gleich mal anschauen, was Du mir geschickt hast.
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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