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

TWINT Rechnung für einfacheres digitales Bezahlen lanciert
Mit TWINT Rechnung können Kunden QR-Rechnungen ab sofort direkt mit der TWINT App bezahlen und den Zahlungstermin innerhalb der Zahlungsfrist selbst bestimmen.
3 Minuten
Video-Tipps
So faszinierende Videos drehen
Video ist das Leitmedium unserer Zeit. Allerdings ist die Produktion guter Inhalte gar nicht so simpel. Wir zeigen Ihnen einige effiziente, aber einfache Tricks, mit denen Sie Videos besser filmen und bearbeiten.
11 Minuten
Adobe integriert lizenzierte Musik von UMG und WMG in Premiere Mobile
Adobe erweitert Premiere Mobile um lizenzierte Musik: In Zusammenarbeit mit der Universal Music Group (UMG) und der Warner Music Group (WMG) stellt das Unternehmen Creatorn künftig eine Auswahl an Musikclips bekannter Künstler direkt in der App zur Verfügung.
2 Minuten

Das könnte Sie auch interessieren

Backup-Infos
In welcher Datei liegen eigentlich Ihre Browser-Bookmarks?
Beim Backup würden Sie von Ihrem Webbrowser gerne nur die Lesezeichen bzw. Favoriten sichern. Aber wo sind die auf Windows-Systemen gespeichert? Wir zeigen es für Google Chrome, Microsoft Edge (alt und neu), Mozilla Firefox und Internet Explorer.
5 Minuten
16. Okt 2020
Software-Tipps
10 Gratis-Tools für Windows
Nicht jede nützliche Software muss Geld kosten. Mit den richtigen Freeware-Programmen erweitern Sie Windows um praktische Funktionen und erledigen viele Aufgaben schneller, einfacher und komfortabler.
7 Minuten
20. Okt 2026
Windows-Tipps
Windows beschleunigen
Bestimmt kennen Sie das Phänomen: Windows wird im Laufe der Zeit immer träger. Doch es gibt Mittel und Wege, um die Bremsen zu lösen und neuen Schwung in Ihr Betriebssystem zu bringen. Wir helfen Ihnen Schritt für Schritt dabei.
4 Minuten
14. Okt 2026
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Kommentare