Office: (Präfix wäre MS 365) VBA-Code für leere Zellen

Hallo zusammen,
ich bräuchte wieder einmal eure geschätzte Hilfe, und zwar suche ich nach einem VBA-Code, der in einer bestimmten Zelle, z.B. A1, einen Text anzeigt, z. B. "Datum eintragen", oder was auch immer, solange die Zelle leer ist. Wird dann das Datum oder ein Text in diese Zelle eingetragen, verschwindet der angezeigte Text natürlich. Das ganze soll nicht nur beim öffnen der Datei überprüft werden, ob die Zelle leer ist, oder nicht, sondern sozusagen ständig, lösche ich in der besagten Zelle den Eintrag, soll der "Anzeigetext" wieder erscheinen.
Das Ändern des "Anzeigetextes" und der entsprechenden Zelle im VBA-Projekt, sollte auch möglich sein, so könnte ich diesen Code in verschiedene Tabellen kopieren und entsprechend abändern, das würde ich schon hinbekommen. Mir fehlt nur der Ausgangscode.

Wie immer schon mal vorweg vielen Dank
Thomas

 

Hi Thomas,

das könnte man z.B. mit folgendem Code realisieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(False, False) = "A1" Then
        If Target = "" Then
            Application.EnableEvents = False
            Target = "Bitte ein Datum eintragen"
            Application.EnableEvents = True
        Else
            If Not IsDate(Target) Then
                Application.EnableEvents = False
                Target = "Bitte ein Datum eintragen"
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

---