Herbers Excel/VBA-Archiv
automatisches Datum einfügen
- automatisches Datum einfügen von Marc Voelker vom 30.09.2003 11:12:39
- AW: automatisches Datum einfügen - von Mac4 am 30.09.2003 11:18:39
- Date & " " & Time = Now ;-)) oT - von Boris am 30.09.2003 11:25:09
- AW: Date & " " & Time = Now ;-)) oT - von Mac4 am 30.09.2003 11:31:50
- AW: Date & " " & Time = Now ;-)) oT - von Mac4 am 30.09.2003 11:31:50
- AW: automatisches Datum einfügen - von Marc Voelker am 30.09.2003 11:26:01
- AW: automatisches Datum einfügen - von Mac4 am 30.09.2003 11:31:21
- AW: automatisches Datum einfügen - von Marc Voelker am 30.09.2003 11:34:00
- AW: automatisches Datum einfügen - von Marc Voelker am 30.09.2003 11:34:00
- AW: automatisches Datum einfügen - von Mac4 am 30.09.2003 11:31:21
- Date & " " & Time = Now ;-)) oT - von Boris am 30.09.2003 11:25:09
- AW: automatisches Datum einfügen - von Michael Brüggemann am 30.09.2003 11:23:02
- AW: automatisches Datum einfügen - von Marc Voelker am 30.09.2003 11:31:20
- AW: automatisches Datum einfügen - von Marc Voelker am 30.09.2003 11:31:20
- AW: automatisches Datum einfügen - von Mac4 am 30.09.2003 11:18:39
 |
Betrifft: automatisches Datum einfügen
von: Marc Voelker
Geschrieben am: 30.09.2003 11:12:39
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.
 |
Betrifft: AW: automatisches Datum einfügen von: Mac4
Geschrieben am: 30.09.2003 11:18:39
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
| |
Betrifft: Date & " " & Time = Now ;-)) oT von: Boris
Geschrieben am: 30.09.2003 11:25:09
Grüße Boris
| |
Betrifft: AW: Date & " " & Time = Now ;-)) oT von: Mac4
Geschrieben am: 30.09.2003 11:31:50
Hi Boris,
danke für den Hinweis!
Marc
| |
Betrifft: AW: automatisches Datum einfügen von: Marc Voelker
Geschrieben am: 30.09.2003 11:26:01
Thx Mac4
kannst du mir bitte auch noch kurz erklären, was
a)Intersect
b)Target.Offset(0, 1).Value
bedeuten
Gruß
Marc
| |
Betrifft: AW: automatisches Datum einfügen von: Mac4
Geschrieben am: 30.09.2003 11:31:21
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
| |
Betrifft: AW: automatisches Datum einfügen von: Marc Voelker
Geschrieben am: 30.09.2003 11:34:00
danke nochma euch beiden...
gruß
marc
| |
Betrifft: AW: automatisches Datum einfügen von: Michael Brüggemann
Geschrieben am: 30.09.2003 11:23:02
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
| |
Betrifft: AW: automatisches Datum einfügen von: Marc Voelker
Geschrieben am: 30.09.2003 11:31:20
viel dank für die rasche antwort michael.
gruß
marc
| |