Datum in Zellen markieren

06. Januar 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie das aktuelle Datum per Makro kennzeichnen

Ein bestimmtes Datum überall dort zu kennzeichnen, wo es auftritt, ist eine praktische Anwendung für viele Aufgabenstellungen. Es gibt mehrere Wege, das zu erreichen. Wenn Sie die Kennzeichnung dynamisch vornehmen möchten, setzen Sie am besten die bedingte Formatierung ein.

Um Zellen, die bestimmte Datumswerte enthalten, auszuwählen, können Sie interaktiv auch die Funktion "Bearbeiten – Finden" verwenden. Falls Sie Zellen mit einem bestimmten Datum automatisch per Makro aufspüren und farbig kennzeichnen möchten, hilft Ihnen der folgende Programmcode:

Sub FindeAktuellesDatum()
Dim Zelle As Range
Dim Bereich As Range
Dim Datum As Date
Datum = DateValue(Now())
Set Bereich = Range("A1:A10")
For Each Zelle In Bereich
If Datum = Zelle.Value Then
 Zelle.Interior.ColorIndex = 3
Else
 Zelle.Interior.ColorIndex = xlColorIndexNone
End If
Next Zelle
End Sub

Das Makro markiert alle Zellen im Zellbereich A1:A10, in denen das aktuelle Systemdatum auftritt. Die folgende Abbildung zeigt eine Tabelle nach dem Einsatz des Makros am 6.1.2010:

Falls Sie andere Daten als das aktuelle Datum hervorheben möchten, ersetzen Sie die Wertzuweisung in der fünften Zeile des Makros durch eine direkte Datumsangabe wie folgt:

Datum = "10.1.2010"

Um einen anderen Zellbereich als A1:A10 zu durchsuchen, passen Sie die Bereichsangabe im Range-Kommando in Zeile 6 des Programms an.

Wenn Sie nicht die Hintergrundfarbe der Zellen verändern möchten, sondern die Farbe der Schrift, ersetzen Sie die beiden Kommandos Interior im Programmcode durch den Befehl Font.

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"