Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
316to320
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
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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
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
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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige