Excel: Zelle leeren wenn Datum erreicht

Question

Hallo liebe User,

wie kann ich folgendes lösen:

In Zelle z. B. A1 steht UR, in Zelle B1 ein zukünftiges Datum.

Nun möchte ich, dass wenn das Datum aus Zelle B1 erreicht ist, die Zelle A1 geleert wird, also nichts mehr drin steht.

Danke

Answer 1

Hallo Unbekannte(r),

=Wen(B1>=Heute();"UR";"")

Gruß Hajo

Answer 2

Hallo Hajo,

funktioniert natürlich, aber ich könnte nichts in diese Zelle eintragen, da ja die Formel überschrieben werden würde.
Habe mich auch nicht glücklich ausgedrückt:

Zelle A1 soll defnierbar bleiben (mal steht dort UR oder mal UG drin).
Nur wenn in Zelle B1 das Datum erreicht wird, soll Zelle A1 geleert werden.
Verändere ich das Datum (neues Datum), will ich in Zelle A1 auch eine 7 rein schreiben können, ist das neue Datum erreicht, ist das Feld wieder leer.
Die Zelle A1 darf also nicht mit einer Formel belegt sein.

Gruß Mario

Answer 3

Hallo Mario,

das geht nur per VBA. Ich vermute mal die Datei ist nicht über Tageswechsel auf?

Gruß Hajo

Answer 4

Nein, die Datei wird unregelmäßig geöffnet. Könnte beim öffnen aktualisiert werden.
VBA wäre auch OK, wüßte hier nicht anzusetzen.

Danke schonmal.

Answer 5

Hallo Mario,

unter DieseArbeitsmappe.

Option Explicit

Private Sub Workbook_Open()
If IsDate(Worksheets("Tabelle1").Range("B1")) Then
If Worksheets("Tabelle1").Range("B1") < Date And Worksheets("Tabelle1").Range("B1") <> "" Then
Worksheets("Tabelle1").Range ("A1")
End If
End If
End Sub

Gruß Hajo

Answer 6

Herzlichsten Dank an Hajo,

schnelle und unkomplizierte Hilfe.

Hallo Hajo,
habe noch einiges anpassen müssen, aber ohne Deine perfekte Vorarbeit, keine Chance.

Gruß Mario