Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
684to688
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Uhrzeit + Datum automatisch aktualisieren

Uhrzeit + Datum automatisch aktualisieren
25.10.2005 16:01:14
Marius
hallo zusammen
wie bringe ich es fertig, dass, sobald ich in einer bestimmte zelle einen eintrag gemacht habe, es in zellen daneben automatisch das datum bzw. die uhrzeit erfasst?
auch sollten sich das datum und die uhrzeit aktualisieren, sobald in der oben erwähnten bestimmten zelle einen änderung vorgenommen wurde...
vielen dank zum voraus.
marius

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Uhrzeit + Datum automatisch aktualisieren
25.10.2005 16:06:11
Hajo_Zi
Hallo´Marius,
unter der Tabelle
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1) = Now
Application.EnableEvents = True
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


AW: Uhrzeit + Datum automatisch aktualisieren
25.10.2005 16:08:58
Andi
Hi Hajo,
warum exit sub bei mehr als einer Zelle?
Bei mir geht das auch, wenn ich Inhalte in einen Bereich hineinkopiere oder ne Formel runterziehe.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Offset(0, 1).Value = Now
Application.EnableEvents = True
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Uhrzeit + Datum automatisch aktualisieren
25.10.2005 16:21:16
Hajo_Zi
Hallo Andi,
mache eine Eingabe in A3:D56
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: Uhrzeit + Datum automatisch aktualisieren
25.10.2005 16:29:19
anderer
Stimmt,
bei mehr als einer Spalte geht das schief.
Schönen Gruß,
Andi
nix anderer Andi...
25.10.2005 16:30:44
Andi
... das war schon ich; blöd wenn der Browser so viele Einträge in der Autovervollständigung hat :-))
Schönen Gruß,
Andi
AW: Uhrzeit + Datum automatisch aktualisieren
25.10.2005 16:32:27
Marius
hola
vielen dank für die die tipps. bin leider nicht so der makro-crack...
habe das makro von hajo eingefügt. jetzt sieht es bei mir so aus (das erste makro war noch ein bestehendes...):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 11 Then Target.Offset(0, 1) = Format(Time, "hh:mm")
End Sub



Private Sub Worksheet_Change2(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 1) = Now
Application.EnableEvents = True
End Sub

wenn ich nun in z.B. in die zelle K5 eine 1 eintippe sieht das resultat wie folgt aus:
01.01.00 16:28
um das problem zu konkretisieren:
wenn ich z.B. in der zelle A5 einen eintrag mache und diesen eintrag mit Enter abschliesse, sollte mir excel automatisch in die zelle K5 das aktuelle datum und in die zelle L5 die aktuelle uhrzeit eintragen.
sobald ich zu einem späteren zeitpunkt den wert in der zelle A5 korrigiere sollte mir excel automatisch wieder die zellen K5 + L5 aktualisieren...
vielen dank zum voraus
marius
Anzeige
AW: Uhrzeit + Datum automatisch aktualisieren
25.10.2005 17:03:57
Andi
Hi,
also, zwei verschiedene Change-Ereignisse im gleichen sheet, das geht nicht, das muss mal schon alles ins gleiche Ereignis packen...
Versteh ich das jetz richtig, das ganze soll nur passieren, wenn in Spalte A was eingetragen wird? Dann so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
Cells(Target.Row, 11).Value = Date
Cells(Target.Row, 12).Value = Time
End Sub

Schönen Gruß,
Andi
AW: Uhrzeit + Datum automatisch aktualisieren
25.10.2005 17:11:17
marius
hallo andi
PERFEKT !!! es funktioniert - great , vielen herzlichen dank.
noch ne kleine zusatzfrage: wenn ich nun das makro so steuern möchte, dass es, sobald in der spalte A - H ein wert erfasst oder verändert wird, sich die zellen in der spalte K und L erneut aktualisieren...
thx
marius
Anzeige
AW: Uhrzeit + Datum automatisch aktualisieren
25.10.2005 17:26:53
Andi
Hi,
dann musst Du einfach nur den Spalten-Index in der if-Abfrage entsprechend anpassen.
Die Abfrage nach target.count kann man jetzt auch eigentlich wieder rausnehmen, weil wir ja nicht mehr mit offset arbeiten und dadurch nix überschrieben werden kann. Dadurch hast Du dann auch die Möglichkeit, zB per copy & paste in mehrere Zellen gleichzeitig was einzugeben.
Das fertige Makro sieht dann so aus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 8 Then Exit Sub
Cells(Target.Row, 11).Value = Date
Cells(Target.Row, 12).Value = Time
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Uhrzeit + Datum automatisch aktualisieren
26.10.2005 07:36:32
marius
danke, du hast mir sehr geholfen.
marius
Gern geschehen...
26.10.2005 09:24:05
Andi
Danke für die Rückmeldung.
Schönen Gruß,
Andi

316 Forumthreads zu ähnlichen Themen

Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Anzeige
Datum automatisch einstellen
Timmy

Liebe Excler,
wie kann ich in meinem Worksheet das Datum automatisch einstellen lassen, sodass es sich von selbst aktualisiert sobald ich das Sheet oeffne, oder beginne zu erarbeiten?
Vielen Dank und liebe Gruesse
Timmy
16.02.2009 16:05:00
Thread-ID: 1051200
3 Beiträge
Automatisches Datum in der Zelle
Schindlbeck62

Hallo Excel Speziallisten,
ich habe eine Liste für die Terminverfolgung erstellt, jetzt möchte ich, wenn die Aufgabe erledigt ist. das ich z. B. in die Zelle D4 ja schreibe sich in die Zelle D5 das Heutige Datum automatisch einträgt aber nicht mehr aktualisiert wenn ich es an an...
27.03.2009 11:04:10
Thread-ID: 1064527
9 Beiträge
Anzeige
Automatisches Aktualisieren beim Öffnen
svenja

Hallo,
habe in einer Exceldatei Daten aus einer Access-Datenbank verknüpft. Die Daten sollen beim Öffnen der Excel-Datei automatisch aktualisiert werden. Habe das entsprechende Häkchen bei "Datenbereichseigenschaften" gesetzt. Es handelt sich hier um eine Excel-Datei mit insgesamt 13 Tabell...
23.07.2009 01:40:16
Thread-ID: 1090320
2 Beiträge
Datum nicht Aktualisieren
René

Hallo
Ich hätte da mal ein Frage
Gibt es eine möglichkeit wenn man in die Zelle (A2) etwas hineinschreibt in die Zelle (B2) das aktuelle Datum mit Uhrzeit steht?
Ich hätte die Formel: =wenn(A2="";"";jetzt())
Das Problem dabei ist, dass sich das Datum dabei immer Aktualisiert. Gi...
25.07.2009 18:19:57
Thread-ID: 1091274
2 Beiträge
Beim Speichern Pivot aktualisieren
andreas

Hallo zusammen,
da ich leider keine Ahnung habe von VBA:
kann mir jemand bei einem Code aushelfen, der, wenn gespeichert wird, automatisch alle Pivottabellen in der Datei aktualisiert?
Vielen lieben Dank vorab
Andreas
14.10.2009 19:24:13
Thread-ID: 1109670
2 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Makro automatisch bei Zellenänderung ausführen
Michael

Hallo,
für eine Tabelle nutze ich folgendes Makro: Sub einfärben() For Each Cell In Range("H5:AH16") If Cell = "SE" Then Cell.Interior.ColorIndex = 3 Cell.Font.ColorIndex = 3 End If If Cell = "TW" Then Cell.Interior.ColorIndex = 4 Cell.Font.ColorIndex = 4 End If If Cell = "BS" Then Cell.In...
16.03.2010 10:59:21
Thread-ID: 1146150
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
2
8
7
1
1
1
2
14
9
2
1
9
4
7
2
3
2
1
9
6
6
5
1