Akt. Datum: bed. Foramtierung oder VBA
15.12.2003 10:41:27
Franz W.
ich suche eine Formellösung und eine VBA-Lösung für dasselbe Problem: die Spalte A ist eine Datumsspalte, allerdings sind die Datumseinträge nicht durchgehend, d.h. dass nicht jeder Tag vertreten ist.
-------- Mit der Formel: =A1=Heute() lässt sich das aktuelle Datum markieren. Es kann aber nun sein, dass es das aktuelle Datum nicht gibt. Gibt es die Möglichkeit, das Datum zu finden, das dem aktuellen - nach oben oder nach unten - am nächsten liegt? Ich befürchte, dass das mit Formel in der bed. Formatierung nicht machbar ist?!?
-------- Darum meine zweite Frage nach einer VBA-Lösung:
Mit nachfolgendem Code lässt sich das aktuelle Datum finden, falls nicht vorhanden gibt es eine Meldung:
Sub DatumSuchen()
Dim r As Range
Set r = Cells.Find(Date)
If Not r Is Nothing Then
r.Select
Exit Sub
End If
MsgBox "Datum nicht gefunden"
End Sub
Anstelle der MsgBox "Datum nicht gefunden" hätte ich nun gerne eine Suche nach dem nächstliegenden Datum, je nachdem ob es vor oder nach dem aktuellen Tag liegt, um dieses dann zu markieren.
Beispiel:
10.12.2003
11.12.2003
16.12.2003
Es sollte also heute, am 15.12.2003, der 16.12.2003 markiert werden, weil der an nächsten liegt.
Könnt Ihr mir dabei bitte helfen?
Vielen Dank schon mal und beste Grüße
Franz