Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Heute() nur einmal eintragen lassen

Heute() nur einmal eintragen lassen
02.10.2003 12:17:39
Jan
Hallo Leute!

Ich würde mir gerne so eine Art Tagebuch mit Excel erstellen. Dabei soll in einer Spalte untereinander jeweils das Tagesdatum automatisch eingetragen werden. Daneben möchte ich dann meine Tagesnotizen eintragen.

Also ungefähr so:

Zeile ... Spalte A ..... Spalte B
1 ...... 27.09.2003 ... Heute ist mal so richtig was losgewesen...
2 ...... 30.09.2003 ... Heute ist nicht viel passiert...
3 ...... 01.10.2003 ... Heute hatte ich viel Stress...
4 ...... 02.10.2003

Ich will bei jedem neuen Öffnen der Tabelle jeweils nur in der nächsten Zeile das aktuelle Tagesdatum stehen haben. Dann trage ich meine Tagesnotizen ein und speichere. Beim nächsten Öffnen soll dann beim letzten Eintrag immer noch das korrekte (alte Datum) stehen und darunter das aktuelle Tagesdatum.

Ist sowas möglich?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Heute() nur einmal eintragen lassen
02.10.2003 12:25:59
Jürgen K.
Hi Jan,

geh' mit Alt F11 in die VBA Umgebung, mach einen Doppelklick auf "Diese Arbeitsmappe",
wähle dann in dem Drop - Down Feld "Workbook" aus und füge diesen Code ein.


Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").Select
Do Until ActiveCell.Value = Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = Now()
ActiveCell.Offset(0, 1).Select
Application.ScreenUpdating = True
End Sub

AW: Heute() nur einmal eintragen lassen
02.10.2003 14:32:48
th.heinrich
hallo Jan,

das mit NOW() funzzt m.e. nicht, weil dann bei jedem oeffnen in den zellen das aktuelle systemdatum steht.

ich glaube da muss DATE() ran.

gruss thomas
Anzeige
AW: Heute() nur einmal eintragen lassen
02.10.2003 12:32:50
xXx
Hallo,
in DieseArbeitsmappe:

Private Sub Workbook_Open()
Sheets("Tagebuch").Cells(Cells(65536, 1).End(xlUp).Row + 1, 1) = Format(Date, "DD.MM.YYYY")
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige