Anzeige
Anzeige
Anzeige
Lesedauer 3 Min.

Bei erfüllter Bedingung aktuelles Datum statisch eintragen - Excel

Pro Zeile habe ich einen Eintrag. In jeder Zeile befindet sich eine Datumszelle (z.B.C1). In dieser Datums Zelle wird immer das aktuelle Datum eingetragen. Diesen Eintrag möchte ich automatisieren. So das wenn in der ersten Zelle der Zeile ein Wert eingetragen wird automatisch das aktuelle Datum in z.B.C1 erscheint, aber das Datum soll am nächsten Tag auch noch vorhanden sein und sich nicht automatisch an den nächsten Tag anpassen.
© Quelle: PCtipp.ch

Ein statisches Datum können Sie nur entweder per Makro oder manuell eintragen. Mithilfe einer Formel wird sich das Datum immer dynamisch anpassen.

Die Manuelle Form: wählen Sie die entsprechende Zelle aus und drücken Sie "CTRL+.". Damit wird das aktuelle Datum statisch in der aktivierten Zelle eingetragen.

© Quelle: PCtipp.ch

Verwenden Sie NICHT den Punkt aus dem Zahlenblock. Damit funktioniert es nicht. Da der Eintrag abhängig vom Eintrag in einer Zelle der gleichen Zeile ist, sind Sie vermutlich mit CTRL+. genauso schnell wie mit einem Makro.

Die Makro-Lösung: Dieses Makro ist ein Lösungsansatz. Sie können es jedoch ihren Bedürfnissen entsprechend anpassen und erweitern.

Sie befinden Sich auf jener Zelle in welcher Sie gerade einen Wert eingetragen haben.

© Quelle: PCtipp.ch

Wenn Sie jetzt das Makro starten, wird mit der Code-Zeile "ActiveCell.Offset(0, 1).Select" der Cursor um 1 Spalte nach rechts verschoben (die 0 bedeutet: KEINE Zeile nach unten).

© Quelle: PCtipp.ch

Mit der nächsten Code-Zeile "ActiveCell.Value = Date" wird das aktuelle Datum in Spalte B fix eingetragen

© Quelle: PCtipp.ch

Erweiterbar wäre das Makro z.B. dahingehend, dass nun die nächste Zeile in Spalte A überprüft wird. Wenn die Zeile einen Wert enthält, wird wieder das Datum in der Nebenzelle eingetragen. Dies ist dann sinnvoll, wenn Sie immer mehrere Werte auf's Mal eintragen.

Sie können das Makro einer Schaltfläche oder einer Tastenkombination zuweisen. Womit wir wieder bei der Frage angelangt sind, womit Sie schneller sind: Mit einem Makro oder mit "CTRL+."?

---------------------------------

MAKRO ZUM KOPIEREN

---------------------------------

Sub DatumStatisch()

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Date

End Sub

---------------------------------

Kommentare

Software Kummerkasten Office Software & Tools
Anzeige
Anzeige

Neueste Beiträge

Zoom führt Echtzeit-Übersetzung für Meetings ein
Zoom hat ein neues KI-gestütztes Feature für Echtzeit-Übersetzungen in den Zoom Meetings gelauncht. Teilnehmer können damit in ihrer eigenen Sprache sprechen, während die anderen sie in ihrer Sprache hören.
3 Minuten
27. Jul 2026
Schweizer KI-Innovation schliesst die Lücke zwischen Denken und Handeln
Die Schweiz macht erneut mit einer spannenden KI-Innovation auf sich aufmerksam. Das Zürcher Unternehmen Gieni bringt mit GieniABX ein Agentensystem auf den Markt, das einen Schritt weiter gehen soll als klassische Chatbots oder KI-Assistenten. 
4 Minuten
In eigener Sache
Kurze Newsletter-Sommerpause
Vom 27. Juli bis zum 9. August macht die PCtipp-Redaktion eine kurze Newsletter-Sommerpause. Sie bekommen in diesem Zeitraum keinen Newsletter. Den nächsten Newsletter erhalten Sie dann wieder am 10. August.
2 Minuten
26. Jul 2026

Das könnte Sie auch interessieren

Sicherheits-Tipps
So geht Smartphone-Schutz für Android und iOS
Viele mobile Geräte mit Android oder iOS sind von Haus aus schon recht sicher eingestellt. Aber einige wichtige Funktionen fehlen dennoch. Hier sind die besten Sicherheits-Tipps für Ihr Android-Smartphone, Android-Tablet, iPhone oder iPad. 
9 Minuten
Outlook-Tipps
Das neue Outlook
Microsoft hat seine beliebte E-Mail- und Organisations-Software Outlook komplett überarbeitet. Wir zeigen Ihnen Schritt für Schritt, wie Sie die neue Version einrichten, bedienen und optimal auf Ihre Bedürfnisse anpassen.
9 Minuten
10. Apr 2024
Cheat-Sheet
Kleiner Excel-Spick von Microsoft – übersetzt von PCtipp
Microsoft hat auf einer Seite 50 nützliche Excel-Tastenkürzel bereitgestellt. Wir haben sie übersetzt und ans Schweizer Tastaturlayout angepasst.
2 Minuten
15. Jul 2026
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Kommentare