Zellenwert automatisch (bestimmte Uhrzeit) löschen möglich?

[Calafati]

Hallo zusammen,

bescheidene Frage, ich weiß nicht, wie aufwändig das ist:
Ist es möglich, einen Zelleninhalt formelgesteuert zu einer bestimmten Uhrzeit zu löschen?
Ich habe mehrere Zellen in einer Art Checkliste, die ich tagsüber manuell mit Einträgen versehe, die aber am Folgetag bislang vorher manuell wieder gelöscht werden müssen.
Es wäre klasse, wenn das bspw. um 16 Uhr automatisch ginge?!?
In der betreffenden Arbeitsmappe "läuft" eine MSG-Box, die sich automatisch alle zwei Minuten aktualisiert (da hat man mir hier seinerzeit schon toll mit geholfen).
Lediglich die Formelstellung bzw. der Befehl, den Eintrag zu löschen (oder doch Makro?) ist mir unklar.
Bin dankbar für eine Lösungsmöglichkeit

Vielen Dank vorab und allen einen guten Wochenstart.
Viele Grüße
Klaus

[WillWissen]

Moin Klaus,

das wird wohl nur mit VBA zu lösen sein. Man kann zwar eine Zelle mittels Formel leer lassen, jedoch nicht zeitgesteuert. Vllt. kann dir einer der VBA-Spezies ein entsprechendes Makro schreiben.

[Calafati]

Hallo Günter,
das wäre natürlich phantastisch.
Aber auch nur, wenn es keine allzu große Arbeit ist, mein Wunsch gehört eindeutig in die Kategorie "nice (NICHT need) to have" :19:
Lieben Dank vorab, wenn sich jemand die Mühe machen will
Klaus

[Käpt'n Blaubär]

Hallo,

also, inzwischen hat Günter Dir ja schon erklärt, daß Dein Wunsch nur mit einem
Makro zu lösen sein wird.
Du schreibst da was von MsgBox. Wie wird die denn gesteuert?
Läuft da schon ein VBA-Code? Wenn ja, dann könnte Dein neuer Wunsch eventuell
dort integriert werden.
Es würde Sinn machen, wenn Du die Datei oder zumindest den Code in's Forum laden
würdest. Momentan sitze ich nicht am Rechner, aber ich werde bald wieder zu Hause
sein.

[schauan]

Hallöchen,

hier wäre mal eine entsprechende Codezeile:
If Hour(Time) = 16 Then Range("A1:A2").ClearContents

Allerdings wird die Spaß machen oder auch nicht Die löscht bei Ausführung zwischen 16 und 17Uhr die Eingaben im programmierten Bereich, hier A1:A2
Man könnte auch zeitgesteuert 16:00 Uhr einen Löschvorgang auslösen.

Beides setzt allerdings voraus, dass die Datei im betreffenden Zeitraum offen ist …

Eventuell wäre eine andere Vorgehensweise auch nicht schlecht. Früh, beim ersten Öffnen der Datei, wird ein Makro ausgeführt, welches die Daten löscht.
Der Code dazu könnte so aussehen:

Code:

Private Sub Workbook_Open()
'Wenn B1 kleiner als das aktuelle Datum ist, dann
If Range("B1") < Date Then
  'Im Blatt Tabelle1 A1 :A2 leeren
  Sheets("Tabelle1").Range("A1:A2").ClearContents
  'Im Blatt Tabelle1 in B1 das aktuelle Datum eintragen
  Sheets("Tabelle1").Range("B1") = Date
'Ende Wenn B1 kleiner als das aktuelle Datum ist, dann
End If
End Sub

[Calafati]

Hallo zusammen,
vielen Dank für die Tips.
Da die Tabelle ganztags geöffnet ist, werde ich zunächst mal Andres Lösung austesten.
Besten Dank nochmal und
viele Grüße
Klaus