Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
VorFuelllung Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
VorFuelllung Target
End Sub
Sub VorFuelllung(Target As Range)
Const csVortext As String = "Bitte Text eingeben!"
With Target
If .Address = "$A$1" Then
Application.EnableEvents = False
If IsEmpty(Target) Then
.Font.Color = RGB(190, 190, 190)
.Value = csVortext
Else
.Font.Color = RGB(0, 0, 0)
.Value = Replace(.Value, csVortext, "")
End If
Application.EnableEvents = True
End If
End With
End Sub