Datum generieren bei Eintrag in Zeile

Hallo Experten,

ich habe folgendes Problem.
Ich benötige eine Formel die es möglich macht, dass mir in einer bestimmten Zelle das aktuelle Datum erzeugt sobald ich etwas in diese Zeile schreibe.
Hat da jemand einen Rat für mich?

Besten Dank im Voraus.

Ich nutze Excel 2007.

lg Sascha

Hallo nochmal,

habs nach probieren selber hinbekommen mit folgender Formel:

=WENN(C1="";"";WENN(A1="";HEUTE();A1))
A1 ist das Datum und in C1 ist der Eintrag.

lg Sascha

Grüezi Sascha

habs nach probieren selber hinbekommen mit folgender Formel:

=WENN(C1="";"";WENN(A1="";HEUTE();A1))
A1 ist das Datum und in C1 ist der Eintrag.

Das klappt aber nur heute - morgen steht da dann ein neues Datum.

Generell kannst Du das mit Formeln nicht fixieren - entweder gibst Du das Datum mit STRG+. (Punkt) manuell in die Zelle ein oder Du musst das Ganze über VBA-Programmierung lösen.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

habs nach probieren selber hinbekommen mit folgender Formel:
=WENN(C1="";"";WENN(A1="";HEUTE();A1))
A1 ist das Datum und in C1 ist der Eintrag.

Das klappt aber nur heute - morgen steht da dann ein neues Datum.

Hallo Thomas, nicht ganz.
Die Formel oben, in A1 eingefügt, erzeugt einen Zirkel-Bezug
sobald in C1 was eingetragen wird.

Wird aber „Interaktive Berechnung“ in den Optionen aktiviert,
merkt sich die Formel tatsächlich das Datum.
Ich habe das schon mal, statt mit einem Datum mit einer Zahl nachgestellt:
Schau mal

Gruß Holger

Hi,

oh, dachte der Eintrag bleibt dann fix.

Was gäbe es denn hier für einen passenden Code?

PS: Ich habe dir eine Nachricht geschrieben. Viel. kannst du dir das mal ansehen. Wäre dir sehr dankbar.

lg Sascha

hallo Sascha,
/t/excel-verschiedene-uhrzeitwerte-in-den-zellen/597…

gruß Holger

Grüezi Holger

habs nach probieren selber hinbekommen mit folgender Formel:
=WENN(C1="";"";WENN(A1="";HEUTE();A1))
A1 ist das Datum und in C1 ist der Eintrag.

Das klappt aber nur heute - morgen steht da dann ein neues Datum.

Hallo Thomas, nicht ganz.
Die Formel oben, in A1 eingefügt, erzeugt einen Zirkel-Bezug
sobald in C1 was eingetragen wird.

Wird aber „Interaktive Berechnung“ in den Optionen aktiviert,
merkt sich die Formel tatsächlich das Datum.

Ja das stimmt so, das ist richtig.

…wenn es allerdings um mehr als nur eine einzelne Zelle geht, dann würde ich hier auf VBA zurückgreifen, statt das für jede Zelle einzeln so einzurichten.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Grüezi Holger nochmals

Ich habe mir noch ein paar Gedanken zu diesem Thema gemacht.

habs nach probieren selber hinbekommen mit folgender Formel:
=WENN(C1="";"";WENN(A1="";HEUTE();A1))
A1 ist das Datum und in C1 ist der Eintrag.

Das klappt aber nur heute - morgen steht da dann ein neues Datum.

Hallo Thomas, nicht ganz.
Die Formel oben, in A1 eingefügt, erzeugt einen Zirkel-Bezug
sobald in C1 was eingetragen wird.

Wird aber „Interaktive Berechnung“ in den Optionen aktiviert,
merkt sich die Formel tatsächlich das Datum.

Ich mag weder Zirkelbezüge noch die Iterationen - tut mir leid… :wink:

Wenn denn STRG+. zur Eingabe eines fixen Datums zu viel Aufwand ist, dann vielleicht der folgende Ansatz:

  • Eine Zelle beliebig irgendwo in der Mappe mit der Funktion =HEUTE()
  • Dieser Zelle einen Namen geben - z.B. aktuelles_Datum
  • In den Zellen die das Datum aufnehmen sollen eine Gültigkeit einrichten mit ‚Liste‘ und dem Bereichsnamen als Quelle

Nun kann in diesen Zellen das aktuelle Datum aus dem DropDown ausgewählt werden und steht dann fix in den Zellen - alle anderen Berechnungen sind davon nicht betroffen.

Hier auch dazu die Demo-Mappe: http://users.quick-line.ch/ramel/Demo-Daten/tr_Datum…

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

OT Zirkelbezug Fehlermeldung deaktivieren
Grüezi Thomas, Holger, Sascha, usw.,

Ich mag weder Zirkelbezüge

wenn ich selbst die Formeln direkt entwickle habe ich nahezu nie Zirkelbezüge.
Aber kopiere ich irgendwoher eine Formel rein habe ich schwupps einen Zirkelbezug.
Ist ja lieb von Excel daß es mich darauf hinweist.
Aber die Art und Weise gefällt mir nicht :frowning:

Zumindest in meinem geliebten XL 2000 kommt dann sofort die Hilfe zu Zirkelbezug, die muß ich wegklicken danach die Symbolleiste zu Zirkelbezug auch noch.
Kann man denn das nicht deaktivieren?

So ein Symbol wie ein Z reichte mir dicke daß erst weggeht wenn ich die Formel geändert habe oder da in Optionen die Iteration angehakt habe.
Gibt es da Möglichkeiten?

noch die Iterationen

Ich kann nicht beurteilen ob ich sie mag oder nicht.
Ich „kenne“ sie nur zu dem Zweck wie es auch Holger anwendet.
Wenn hier ein Mathematiker o.ä. anfragt der für seine math. Formeln
Iterationen braucht, so werde ich eh nicht helfen können da
ich sehr anzunehmenderweise mit seiner math. Formel die er flüssig lesen kann, die für mich so deutbar ist wie ein chinesisches zeichen, nix anfangen kann um das in Excel umzusetzen.
Naja, in den letzten jahren kam zum Glück noch nie eine dementsprechende Anfrage :smile:

Wenn denn STRG+. zur Eingabe eines fixen Datums zu viel
Aufwand ist

Naja, sind ZWEI Tasten die man drücken muß und das AUCH NOCH gleichzeitig, vielleicht sollte man das auf F12 legen, das wäre nur eine Taste *gg*
Okay, okay, ich weiß es wurde/wird eine automatische Lösung gesucht.

Nun kann in diesen Zellen das aktuelle Datum aus dem DropDown
ausgewählt werden und steht dann fix in den Zellen - alle
anderen Berechnungen sind davon nicht betroffen.
http://users.quick-line.ch/ramel/Demo-Daten/tr_Datum…

Ja, das klappt natürlich *annehm* aber das wäre dann doch wieder ein amnueller Eingriff. Schon sind wir wieder bei Strg + „+“.
Wenn man aber die Anfrage von Sascha so deutet daß er ggfs. eine Mappenvorlage erstellen will die bei Mappenöffnung nur einmalig das aktuelle Datum in eine Zelle schreibt OHNE da0 man manuell etwas tun muß, so bleibt ja nur Vba oder der Weg von Holger oder sowas.

Wie auch immer, Sascha hat jetzt verschieden lösungswege gezeigt bekommen, soll er sich entscheiden was er davon will.
Eine Vba-Lösung ist bei bedarf auch schnell geschrieben.

Gruß
Reinhard

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

In die selbe Zelle in die Du schreibst, wird kein Datum einfügbar sein.
Schreib doch in eine „Hilfszelle“ und frag diese ab. Wenn „nicht leer“ dann Datum in deiner Wunschzelle einfügen…

Gruß Thomas

Hallo zusammen,
ich darf auch noch mal auf einen Beitrag verweisen auf den ich auch schon etwas weiter oben /t/excel-verschiedene-uhrzeitwerte-in-den-zellen/597…

Zitat von mir dort zur Formellösung:
Diese Variante halte ich nicht für besonders gut, sie funktioniert aber.

Gruß Holger

Hallo Thomas,

und wie würdest du das programmieren?
Von VBA hab ich keinen blassen Schimmer :wink:

lg Sascha

und wie würdest du das programmieren?
Von VBA hab ich keinen blassen Schimmer :wink:

Hallo Sascha,

mal ein Ansatz.
Klicke mit rechter Maustaste auf das Blattregister, dann „Code anzeigen“.
Dort kopierst du nachfolgenden Code rein.
Der Code schreibt das Datum in Zelle Hx, soll es eine andere Spalte sein so ändere das im Code ab, das „H“ ist ja leicht zu lokalisieren.
Dann schließe den VB-Editor.

Gruß
Reinhard

Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Rows.Count \> 1 Or Target.Row = 1 Then Exit Sub
If Application.CountBlank(Target.EntireRow) = Columns.Count - 1 Then
 Application.EnableEvents = False
 If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "H").Value = Format(Date, "DD.MM.YY")
 Application.EnableEvents = True
End If
End Sub

Grüezi Sascha

und wie würdest du das programmieren?
Von VBA hab ich keinen blassen Schimmer :wink:

…das lässt sich ändern… :wink:

Klicke mit der rechten Maustaste auf den Tabellenblattreiter des Tabellenblattes das diese Funktion bekommen soll und wähle im Kontextmenü ‚Code anzeigen‘ aus. In das nun geöffnete Fenster kopierst Du die folgenden Zeilen und passt die Adresse des überwachten Bereiches noch an deine Wünsche an:

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim rngBereich As Range
Dim rngzelle As Range

 'Hier den Bereich angeben der überwacht werden soll
 'Bei Eingaben darin wird das Datum in Spalte H gesetzt
 'auch wenn mehrere Zellen geändert werden
 Set rngBereich = Intersect(Target, Range("A2:A100"))

 If Not rngBereich Is Nothing Then
 On Error GoTo ErrorHandler
 Application.EnableEvents = False
 For Each rngzelle In rngBereich
 Range("H" & rngzelle.Row) = Date
 Next rngzelle
 End If

ErrorHandler:
 Application.EnableEvents = True
End Sub

Schliesse dann den VBA-Editor mit ALT+Q und speichere die Mappe.

Veränderst Du nun in dem überwachten Bereiche eine oder mehrere Zellen wird das Datum dort in Spalte H in die Zeile geschrieben.

@Reinhard
Warum lässt Du einen String in die Zellen schreiben…?

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -