Hallo zusammen,
ich suche nach der Möglichkeit in eine Zelle einen Text ("Name") zu schreiben das beim anklicken dann verschwindet. So wie man es von z.B. Kontaktforumularen im Internet kennt. Ist so etwas möglich?
Viele Grüße,
Shaggy1982
ohne VBA ginge es mit mit einer 1 Pixel breiten Spalte, in welcher der Text steht und in der Nachbarzelle erscheint, solange da nichts eingegeben wurde.
und hier ein Beispiel, die die Zellen A!:A10 abdeckt:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
Dim rngBereich As Range
Set rngBereich = Range("A1:A10")
If Not Intersect(Target, rngBereich) Is Nothing Then
If Target.Text = "Enter Value" Then Target.ClearContents
End If
For i = 1 To 10
If Cells(i, 1).Address <> Target.Address Then
If Cells(i, 1) = "" Then Cells(i, 1) = "Enter Value"
End If
Next i
End Sub
In die Zellen kann Enter Value vorgetragen werden. Ansonsten macht es der Code, wenn sie leer sind.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngBereich As Range, rngZ As Range
Set rngBereich = Range("B2, B4, B8, C6, D2")
If Not Intersect(Target, rngBereich) Is Nothing Then
If Target.Text = "Enter Value" Then Target.ClearContents
End If
For Each rngZ In rngBereich
If rngZ.Address <> Target.Address Then
If rngZ = "" Then rngZ = "Enter Value"
End If
Next rngZ
End Sub