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

automatisches Datum einfügen

Forumthread: automatisches Datum einfügen

automatisches Datum einfügen
30.09.2003 11:12:39
Marc Voelker
Servus ihr da im Netz!

Ich bin ma wieder am verzweifeln.
Und mir fällt momentan auch keine VBA-Lösung ein.

In Spalte B soll automatisch das aktuelle Datum und die genaue Uhrzeit erscheint, sobald in Spalte A ein Wert eingetragen wird.

Und die Werte in Spalte B sollen dann fix bleiben.
Darum funktioniert der Befehl JETZT() nicht. Zumindestens nicht so wie ich es möchte.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisches Datum einfügen
30.09.2003 11:18:39
Mac4
Hi Namensvetter,

bevor Dir die Verzweiflung den schönen Tag versaut:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then
Else
Target.Offset(0, 1).Value = Date & " " & Time
End If
End Sub


Marc
Anzeige
Date & " " & Time = Now ;-)) oT
30.09.2003 11:25:09
Boris
Grüße Boris
AW: Date & " " & Time = Now ;-)) oT
30.09.2003 11:31:50
Mac4
Hi Boris,

danke für den Hinweis!

Marc
AW: automatisches Datum einfügen
30.09.2003 11:26:01
Marc Voelker
Thx Mac4

kannst du mir bitte auch noch kurz erklären, was

a)Intersect
b)Target.Offset(0, 1).Value

bedeuten

Gruß
Marc
Anzeige
AW: automatisches Datum einfügen
30.09.2003 11:31:21
Mac4
Hallo Marc

mit If Intersect(Target,Range("A:A")) wird überprüft, ob die aktuelle Zelle (Target) im Bereich der Spalte A liegt - nur dann soll der Befehl
Target.Offset(0, 1).Value = Date & " " & Time oder wie Boris netterweise verbessert hat
Target.Offset(0, 1).Value = Now

ausgeführt werden.

Offset(0,1) heißt eine Zelle rechts von der aktuellen Zelle (Target)

Marc
Anzeige
AW: automatisches Datum einfügen
30.09.2003 11:34:00
Marc Voelker
danke nochma euch beiden...

gruß
marc
AW: automatisches Datum einfügen
30.09.2003 11:23:02
Michael Brüggemann
Hallo Marc,

kopiere diesen Code einfach in das Modul der Tabelle, in der sie verwendet werden soll (also z.B. Tabelle1).


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'* Festhalten der ersten Änderung von Zellen in Spalte "A"
' Prüfen, ob Änderung in Spalte "A" vorgenommen wurde
If Target.Column = 1 Then
' Datum und Uhrzeit in Spalte "B" schreiben, wenn Zelle noch leer
' (also nur beim ersten Füllen der Zelle in Spalte "A")
If IsEmpty(Cells(Target.Row, 2)) Then Cells(Target.Row, 2).Value = Now()
End If
End Sub


CIAO
Michael
Anzeige
AW: automatisches Datum einfügen
30.09.2003 11:31:20
Marc Voelker
viel dank für die rasche antwort michael.

gruß
marc

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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