Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
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


Hallo!
Ich habe folgendes Excel-Sheet:
In Spalte A soll mittels VBA ein Datum eingefügt werden, zb. 01.09.2008. In Spalte B soll ein Betrag zb. € 70,00 eingetragen werden. Bezüglich der Spalte B gibt es kein Problem. Es geht nur um die Spalte A.
Ich will nämlich, dass Excel autom...
Anzeige

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...

Hallo Leute,
ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
Anzeige

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert

Hallo zusammen,
Mit dem nachfolgenden Makro möchte ich die jeweiligen, nach Themen definierten Maßnahmen als Outlookaufgaben verteilen. Das klappt ganz gut. Was ich nicht hinbekomme, ist eine If Schleife, die prüft, ob das Datum in Aendd (Datum der letzten Änderung) dem heutigen entspricht...

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige