Das Archiv des Excel-Forums

Datum automatisch eintragen

Bild

Betrifft: Datum automatisch eintragen
von: Joerg

Geschrieben am: 21.09.2003 12:33:55

Hallo,

erneut ein Problem, für das ich leider trotzdem es schon mal im Forum war noch keine Lösung habe.

Wird ein Tabellenblatt aufgerufen, soll in Spalte A das Tagesdatum eingetragen werden, wenn die danebenstehenden Zelle der Spalte B leer ist.
Rufe ich das Blatt am nächsten Tag wieder auf, soll erneut in der nächsten freien Zelle in Spalte A das Tagesdatum eingetragen werden, wenn die danebenliegende Zelle in Spalte B leer ist.
Pro Tag soll das Datum aber nur einmal eingetragen werden.

Danke Joerg
Bild


Betrifft: AW: Datum automatisch eintragen
von: Ramses
Geschrieben am: 21.09.2003 12:39:38

Hallo


Option Explicit

Private Sub Worksheet_Activate()
Dim Cr As Integer
Cr = Range("A65536").End(xlUp).Row
If Format(Cells(Cr, 1).Value, "dd.mm.yyyy") <> Format(Now, "dd.mm.yyyy") And Cells(Cr, 2) = "" Then
    Cells(Cr, 1) = Format(Now, "dd.mm.yyyy")
End If
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16



Gruss Rainer


Bild


Betrifft: AW: Datum automatisch eintragen
von: Joerg
Geschrieben am: 21.09.2003 13:07:04

Hi,

funktioniert leider nur bei ersten Aufruf,
Datum steht dann in Zeile A1, jetzt trage ich einen Text in B1 ein.
Rufe ich das Programm jetzt am nächsten Tag wieder auf, soll in der nächsten freien Zelle ( wäre dann A2 ) in Spalte A wieder das Datum eingetragen werden, wenn die nebenstehende Zelle in Spalte B (also B2) leer ist. Sonst soll das Programm die nächste freie Zelle in Spalte A suchen, die neben einer freien Zelle in Spalte B liegt.
usw.

Gruss Joerg


Bild


Betrifft: Probiers morgen noch mal....
von: Ramses
Geschrieben am: 21.09.2003 13:14:38

Hallo,

... oder hast du zum testen dein Systemdatum verändert :-)

Muss allerdings gestehen, dass ein kleiner Lapsus drin ist :-)

Ändere

Cells(Cr, 1) = Format(Now, "dd.mm.yyyy")

in

Cells(Cr+1, 1) = Format(Now, "dd.mm.yyyy")

sonst wird immer der Wert in A1 überschrieben

Gruss Rainer


Bild


Betrifft: AW: Probiers morgen noch mal....
von: Joerg
Geschrieben am: 21.09.2003 13:28:46

Hallo Rainer,

funktioniert gut, solange in Spalte B kein Text steht. Manchmal (nicht immer) möchte ich neben das Datum in Spalte B ein Text eintragen. Dann trägt er mir am nächsten Tag ( Systemdatum geändert !! :-)) kein Datum mehr ein.

Gruss Joerg


Bild


Betrifft: ???
von: Ramses
Geschrieben am: 21.09.2003 15:16:12

Hallo

Dann kannst du ja die Prüfung auf "Bx" wegfallen lassen

Option Explicit


Private Sub Worksheet_Activate()
Dim Cr As Integer
Cr = Range("A65536").End(xlUp).Row
Debug.Print Cr
If Format(Cells(Cr, 1).Value, "dd.mm.yyyy") <> Format(Now, "dd.mm.yyyy") Then
Cells(Cr + 1, 1) = Format(Now, "dd.mm.yyyy")
End If
End Sub


Gruss Rainer


Bild


Betrifft: AW: unglücklich ausgedrückt
von: Joerg
Geschrieben am: 21.09.2003 15:52:29

Hallo,

ich glaube ich habe mich unglücklich ausgedrückt.
Die Prüfung ob Spalte B <>"" ist insofern wichtig, da z.B. :
Aktuelles Datum steht in A2, Text in B2, B3, B4
dann soll am nächsten Tag in A5 das aktuelle Datum eingetragen werden, so das ich bei Bedarf in B5 wieder etwas eintragen kann.
Wichtig ist also, das jedesmal wenn ein Datum in der Spalte A eingetragen wird, die danebenliegende Zelle in B leer ist.
Ich weiss in Voraus nicht wieviele Einträge ich für den aktuellen Tag in B machen muß, daher die Prüfung ob die Zelle in Spalte B leer ist.


Bild


Betrifft: Dann muss man das Pferd anders aufzäumen....
von: Ramses
Geschrieben am: 21.09.2003 17:57:09

Hallo

... solche Sachen gehören einfach in die Fragestellung:

"...Ich weiss in Voraus nicht wieviele Einträge ich für den aktuellen Tag in B machen muß, ..."

Woher soll man das denn wissen.

Option Explicit



Private Sub Worksheet_Activate()
Dim Cr As Integer
Cr = Range("A65536").End(xlUp).Row
Debug.Print Cr
If Format(Cells(Cr, 1).Value, "dd.mm.yyyy") = Format(Now, "dd.mm.yyyy") Then
Exit Sub
Else
Cells(Range("B65536").End(xlUp).Row + 1, 1) = Format(Now, "dd.mm.yyyy")
End If
End Sub



Gruss Rainer


Bild


Betrifft: AW: Perfekt
von: Joerg
Geschrieben am: 21.09.2003 18:09:39

Hallo,

klappt jetzt wie gewünscht,

besten Dank

Joerg


 Bild

Excel-Beispiele zum Thema " Datum automatisch eintragen"

Automatische Datumformatierung unterdrücken download Automatisch Sicherungsdatei erstellen download
Automatisches Komplettieren einer Zelleingabe download Zelleingaben automatisch auf volle 1,2-Teile runden download
Tabelle nach Datumseintrag automatisch sortieren download Eingaben in B:D automatisch mit 6 multiplizieren download
Zelleingabe automatisch in Kopfzeile übernehmen download Nach Zelleingabe automatische Sortierung download
Automatische Sortierung bei Zelleintrag download Min- und Max-Werte automatisch markieren download
Automatische Passworteingabe in Internet-Formular download Seitenanzahl eintragen download
Letztes Speicherdatum eintragen download Fußzeilen beim Öffnen eintragen download
Wert in erste leere Zelle eintragen download Häkchen eintragen download
KGRÖSSTE über VBA eintragen download Wochentage Mo - Fr in Tabelle eintragen download
Anwendername in Fußzeile eintragen download Anwendername in Tabellenblatt eintragen download
Änderungsdatum eintragen download Wert in alle Arbeitsblätter eintragen download
Summenformel unter Zahlenreihe eintragen download Datum suchen und Wert eintragen download
Termine in Jahrestabelle eintragen download Beim Aktivieren einer CheckBox Häkchen in Zelle eintragen download
Bilder in Videoliste eintragen und löschen download Teilergebnisse in Zahlenreihe eintragen und löschen download
Aufmaße erfassen und eintragen download Adressdaten via Dialog in eine Adressdatei eintragen download
Fußballergebnisse in Tabelle eintragen und zu HTML konvertieren download Zwischensummen eintragen download
Wert in UserForm-TextBox eintragen und selektieren download Arbeitsblattnamen in Zelle eintragen download
Summenformel per VBA eintragen download Name des Verfassers in das Dokument eintragen download
Beim Öffnen der Arbeitsmappe bedingt Datum eintragen download Datum in Registry eintragen und auslesen download
Von der Fundstelle eines Zellwertes abhängige Daten eintragen download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen download Bei Doppelklick Kontext-Menü mit Listeneinträgen anzeigen download
Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download Werte in Spalte A in Abhängigkeit des Werte in Spalte B eintragen download
Zeit eintragen und Tabelle minütlich als HTML-Datei speichern download Geschriebene Rechnung in Journal eintragen download
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen download Textvariable in eine UserForm-TextBox eintragen download
Wert aus ComboBox in Tabelle eintragen download Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen download
Waren in Warenkorb legen und in Liste eintragen download Datum aus Zelle in UserForm-Label eintragen download
Bei Aktivierung einer UserForm-CheckBox Häkchen in Zelle eintragen download Adressen aus Adresstabelle übernehmen, bearbeiten, eintragen download
Wert aus Zelle in Tabellenblatt-Textbox eintragen download Adresse nach Gültigkeitsfeldauswahl eintragen download
Urlaub gem. Tabelle in Urlaubsliste eintragen download Pfad- und Arbeitblattname in Fußzeile eintragen download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Wert aus UserForm-ListBox in Tabellenblatt eintragen download
Namen nach dem Zufallsprinzip auswählen und eintragen download