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
  Farbskala als Laufzeit in Zelle anzeigen dersauer 6 90 Vor 3 Minuten
Letzter Beitrag: dersauer
Question Zellwert zu Formel in anderer Zelle machen -> 4x4 zu =4x4 o0Julia0o 30 371 Gestern, 23:50
Letzter Beitrag: Basisa
  Form mit Farbe aus Zelle formatieren Ben1234 11 296 18.02.2017, 08:23
Letzter Beitrag: Kuwer
Brick Ausgewählter Anzeigename aus Adressbuch (global) in Zelle importieren lambepil 2 50 17.02.2017, 09:35
Letzter Beitrag: lambepil
  In Zelle suchen Baani10 2 41 14.02.2017, 18:42
Letzter Beitrag: Baani10
  Zelle auslesen und in Formel ausgeben dertommy 17 207 08.02.2017, 14:20
Letzter Beitrag: dertommy
  Anzeige aktueller Benutzer in Zelle möglich? Calafati 6 53 08.02.2017, 10:33
Letzter Beitrag: Calafati
  Daten aus Zelle in Kopfzeile Robbie1985 6 76 04.02.2017, 08:44
Letzter Beitrag: schauan
  Text in Textfeld ändern, wenn bestimmte Zelle aktiv ist michi89287 4 84 04.02.2017, 07:55
Letzter Beitrag: michi89287
  Alle Zellen farbig die links von zelle stehen Hagen 4 60 29.01.2017, 11:19
Letzter Beitrag: Peter

Gehe zu:


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