Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

autom. Datumseintrag

autom. Datumseintrag
11.12.2003 12:52:35
Harald
Hallo Makromaniacs,

irgendwie steh ich auf dem Schlauch.
Wenn ich in einer Liste einen Eintrag tätige, möchte ich das in dieser Zeile selbsttätig das aktuelle Datum eingetragen wird. Und zwar ohne dass sich dieses Datum am nächsten Tag wieder aktualisiert.
Gefordert ist also das Datum für den Tag der Erfassung.

Gruß
Harald

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: autom. Datumseintrag
11.12.2003 13:01:12
xXx
Hallo,
nutze das Worksheet_Change-Ereignis.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
AW: autom. Datumseintrag Andreas/Udo
11.12.2003 13:35:44
harald
Dank an euch.
Ging ja schneller als das Formulieren der Frage.
Nach dem Anpassen der Bereiche läuft die Geschichte blondinensicher.

Gruß
Harald
Bspmakro von Hajo
11.12.2003 13:02:53
andreas e
hallo,
hier ein bsp. von Hajo,
die bereiche natürlich entsprechend anpassen !

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'   erstellt von Hajo.Ziplies@web.de 13.06.03
'   wird im definierten Bereich ein Wert geändert, wird in der nächsten Spalte das Datum eingetragen
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:B20, D1:D7")
'    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ß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige