Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Text in Zelle die beim anklicken der Zelle verschwindet
#1
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
to top
#2
Hallo,

mal ungetestet hier reingeschrieben (wenn sich dein Text zum Beispiel in der Zelle A1 befindet)

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0,0) = "A1" Then Target.Value = ""
End Sub

Nachtrag: Wo Du den Code einfügen mußt, wird dir hier erklärt.
Gruß Stefan
Win 7 / Office 2007
to top
#3
Hallo,

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.

Gruß Uwe


Angehängte Dateien
.xls   1Pixeltrick.xls (Größe: 15,5 KB / Downloads: 7)
to top
#4
Hallo,

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.
Gruß Atilla

Excel 2007
to top
#5
Hi,

(08.12.2014, 20:30)atilla schrieb: und hier ein Beispiel, die die Zellen A!:A10 abdeckt:

ich wollte da andere Zellen verwenden und habe aus A1:A10 zum Test B2:B11 gemacht.

Leider wird immer noch der Bereich A1:A10 beschrieben.

Ich würde auch gerne verschiedene Zellen verwenden:
z.B. B2, B4, B8, C6, D2, also wild verteilt.

Wie geht denn das?
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#6
Hallo Ralf,

das könnte so gehen:

Code:
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
Gruß Atilla

Excel 2007
to top
#7
Hi Atilla,

(09.12.2014, 09:30)atilla schrieb: das könnte so gehen:

ja, so geht's!
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Question EXCEL 2003: Durch anklicken - Automatisch bestimme Zahl einfügen M.Fritsch69 13 111 Vor 5 Stunden
Letzter Beitrag: Glausius
  hyperlink auf immer gleiche zelle lion7123 3 63 07.12.2016, 14:50
Letzter Beitrag: lion7123
  [VBA] Ergebnis der Formel statt Formel in Zelle eintragen Rabe 2 48 05.12.2016, 14:51
Letzter Beitrag: Rabe
  Erste Zeile aus Zelle löschen kosmoritz 4 61 02.12.2016, 16:01
Letzter Beitrag: kosmoritz
  Zelle kopieren Platzwart 2 50 02.12.2016, 15:00
Letzter Beitrag: Platzwart
  Text in einer Zelle automatisch eintragen, abhängig von anderen Zellen Willhelm82 25 265 01.12.2016, 14:24
Letzter Beitrag: Willhelm82
  summen wenn leere zelle entdeckt ist evera 7 76 30.11.2016, 15:59
Letzter Beitrag: BoskoBiati
  Excel VBA, Bild aus nebenstehender Zelle kopieren wenn Zelle ausgewählt ist xChristianx 5 78 30.11.2016, 11:32
Letzter Beitrag: xChristianx
  Zellenausgabe in Abhängigkeit einer anderen Zelle tobisw 6 83 29.11.2016, 13:54
Letzter Beitrag: BoskoBiati
  In Zelle soll Wert aus Zeile wiedergegeben der Kriterium erfüllt sebster85 1 46 28.11.2016, 11:27
Letzter Beitrag: Kuwer

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste