Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
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


...und ich gelobe Besserung...

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


...und ich gelobe Besserung...

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
  Daten/Wert von Textfeld in bestimmte Zelle McArthur1 11 163 Vor 4 Stunden
Letzter Beitrag: McArthur1
  MessageBox liest nicht aktuellen Wert aus Zelle aus dertommy 5 63 22.03.2017, 11:55
Letzter Beitrag: dertommy
  2 Zellen bedingen das Auslesen einer 3. Zelle johnny9000 5 52 20.03.2017, 16:59
Letzter Beitrag: johnny9000
  Zeile der aktiven Zelle farblich markieren... Jockel 19 194 19.03.2017, 18:33
Letzter Beitrag: RPP63
Video Formel und vtl. Eintrag von Hand in in einer Zelle? Tortipower 15 274 17.03.2017, 23:01
Letzter Beitrag: schauan
  2 Zellen bedingen die Auslese einer 3. Zelle johnny9000 3 68 16.03.2017, 17:14
Letzter Beitrag: johnny9000
  Zelle ab bestimmtem mehrfachen Zeichen auslesen? xlsxvba 4 80 16.03.2017, 12:41
Letzter Beitrag: snb
  Datenwertfunktion mit Datum aus Zelle Bananajo 7 102 15.03.2017, 20:55
Letzter Beitrag: shift-del
  Kreuz im Vordruck durch Anklicken Maximus 25 455 15.03.2017, 08:00
Letzter Beitrag: Rabe
  Eine Zelle mit Dropdown zum Scrollen Tino Muc 2 62 14.03.2017, 19:14
Letzter Beitrag: schauan

Gehe zu:


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