Zelltext der bei anklicken verschwindet

Hi
ich würde es so machen, um flexibel zu sein bezüglich der Eingabefelder und Hinweistexte:
1. markiere alle Eingabezellen und vergib ihnen den Namen "EingabeZellen" (über den Namensmanager oder die Eingabe im Namesfeld (links neben der Bearbeitungszeile))
2. schreibe die anzuzeigenden Texte in eine Zelle, die um x Spalten nach rechts versetzt liegt.
(es muss für alle Eingabezellen der gleiche Versatz sein)
diese Texte müssen immer mit dem gleichen Zeichen beginnen, ich habe wie du das "[" verwendet.
3. kopiere diesen Code ins Modul der Arbeitsmappe:

Option Explicit
Dim ZelleAlt As Range
Const Abstand As Long = 10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Intersect(Target, Range("EingabeZellen")) Is Nothing Then Exit Sub
For Each Zelle In Intersect(Target, Range("EingabeZellen"))
If Zelle.Value = "" Then
Application.EnableEvents = False
Zelle.Value = Zelle.Offset(0, Abstand).Value
Application.EnableEvents = True
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not ZelleAlt Is Nothing Then
If ZelleAlt.Value = "" Then
Application.EnableEvents = False
ZelleAlt.Value = ZelleAlt.Offset(0, Abstand).Value
Application.EnableEvents = True
End If
End If
Set ZelleAlt = Nothing
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("EingabeZellen")) Is Nothing Then Exit Sub
If Left(Target.Value, 1) = "[" Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
Set ZelleAlt = Target
End If
End Sub

ich habe hier den Spaltenversatz 10 gewählt, du kannst diesen über die Constante "Abstand" einstellen.
das Umfärben würde ich nicht über Code erledigen, sondern über die Bedingte Formatierung mit der Regel: =Links(...;1)="["
Auch dafür ist es sinnvoll, dass die Hinweistexte immer mit dem gleichen Zeichen beginnen, an dem man sie einfach erkennen kann.
damit die Hinweistexte in den Eingabezellen erscheinen, reicht es aus in den Eingabezellen einmal die Inhalte zu löschen.
Gruß Daniel

Hallo Daniel,
muss mich noch mal melden.
Wie stelle ich es an, dass ich noch eine zweite Spalte mit Vorgaben belegen will.
Ich kann ja nicht zwei Worksheet_Change erstellen und einfach die beiden Prozeduren hintereinander ausführen klappt auch nicht.
Das war mein Versuch aber da passiert in dem Datum-Feld leider gar nichts.
Option Explicit
Dim ZelleAlt As Range
Const Abstand As Long = 4
Dim ZelleAlt_Datum As Range
Const Abstand_Datum As Long = 4

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Intersect(Target, Range("EingabeZellen")) Is Nothing Then Exit Sub
For Each Zelle In Intersect(Target, Range("EingabeZellen"))
If Zelle.Value = "" Then
Application.EnableEvents = False
Zelle.Value = Zelle.Offset(0, Abstand).Value
Application.EnableEvents = True
End If
Next
If Intersect(Target, Range("Datum")) Is Nothing Then Exit Sub
For Each Zelle In Intersect(Target, Range("Datum"))
If Zelle.Value = "" Then
Application.EnableEvents = False
Zelle.Value = Zelle.Offset(0, Abstand_Datum).Value
Application.EnableEvents = True
End If
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not ZelleAlt Is Nothing Then
If ZelleAlt.Value = "" Then
Application.EnableEvents = False
ZelleAlt.Value = ZelleAlt.Offset(0, Abstand).Value
Application.EnableEvents = True
End If
End If
Set ZelleAlt = Nothing
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("EingabeZellen")) Is Nothing Then Exit Sub
If Left(Target.Value, 1) = "[" Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
Set ZelleAlt = Target
End If
If Not ZelleAlt_Datum Is Nothing Then
If ZelleAlt_Datum.Value = "" Then
Application.EnableEvents = False
ZelleAlt_Datum.Value = ZelleAlt_Datum.Offset(0, Abstand_Datum).Value
Application.EnableEvents = True
End If
End If
Set ZelleAlt_Datum = Nothing
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("Datum")) Is Nothing Then Exit Sub
If Left(Target.Value, 1) = "[" Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
Set ZelleAlt_Datum = Target
End If
End Sub

Zelltext der bei anklicken verschwindet

Forumthread: Zelltext der bei anklicken verschwindet

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zelltext, der beim Anklicken verschwindet

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Zelltext der bei anklicken verschwindet

Forumthread: Zelltext der bei anklicken verschwindet

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zelltext, der beim Anklicken verschwindet

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread