Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: *Bei Klick auf Zelle, Inhalt verschwinden wie ?

*Bei Klick auf Zelle, Inhalt verschwinden wie ?
01.03.2017 07:19:12
Nathalie
Hallo zusammen :), vielleicht kann mir jemadn behilflich sein ( ich hoffe es sehr, bin der Lö _
sung glaube ich gar nicht so weit entfernt und die Minuten ziehen sich nun ewig) In einer Zelle _
steht eine Art Anweisung für den User: Please enter special requirements" Diese Anweisung soll _
verschwinden, sobald der User etwas in die Zelle tippt. Falls er es wieder löscht, soll die _ Anweisung wieder erscheinen. Mein Vorschlag:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("W21:Y22")) Is Nothing Then
Select Case
Target.Value
Case Is = ""
Target.Value = "Please enter special requirements" Target. _
Font.ColorIndex = 16
Target.Interior.ColorIndex = 15
Case Else Target.Font.ColorIndex = 1 Target.Interior.ColorIndex = 43
End Select
End If

--> Problem: Wenn man auf die Zelle klickt, bleibt die Anweisung stehen und man muss die Anweisung selbstständig löschen, ich möchte aber, dass die Anweisung überschrieben wird.
Vielen lieben Dank für jeden Vorschlag! MfG Nathalie
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: *Bei Klick auf Zelle, Inhalt verschwinden wie ?
01.03.2017 07:40:21
hary
Moin
Nimm das doppelklick Ereignis. Das macht man bewusst, nur wechsel der Zelle kann auch aus versehen passieren.
Doppelklick in Zelle
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("W21:Y22")) Is Nothing Then
Target = ""
End If
End Sub

gruss hary
Anzeige
AW: Zusaetzlich zum Change gruss owT
01.03.2017 07:41:29
hary
.
AW: Zusaetzlich zum Change gruss owT
01.03.2017 07:58:23
Nathalie
Hallo Harry,
vielen Dank für deine Antwort. Habe dein Code etwas modifiziert, aber er funktioniert leider nicht.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("W21:Y22")) Is Nothing Then
Target = ""
Target.Font.ColorIndex = 1
Target.Interior.ColorIndex = 43
Else
Target.Value = "Please enter special requirements"
Target.Font.ColorIndex = 16
Target.Interior.ColorIndex = 15
End If
--> Falls das Feld leer ist, soll der Text "Please enter special requirements" erscheinen, mit der bestimmten Formatierung.
LG Nathalie
Anzeige
AW: nicht so
01.03.2017 08:04:15
hary
Moin
Dieser Code bleibt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("W21:Y22")) Is Nothing Then
Select Case Target.Value
Case Is = ""
Target.Value = "Please enter special requirements"
Target.Font.ColorIndex = 16
Target.Interior.ColorIndex = 15
Case Else
Target.Font.ColorIndex = 1
Target.Interior.ColorIndex = 43
End Select

zusaetzlich diesen unter den ChangeCode des Blattes. Dieser loescht beim Doppelklick den Inhalt
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("W21:Y22")) Is Nothing Then
Target = ""
End If
End Sub

gruss hary
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Inhalt in Excel-Zelle bei Klick verschwinden lassen


Schritt-für-Schritt-Anleitung

Um den Inhalt einer Zelle in Excel verschwinden zu lassen, wenn der Benutzer darauf klickt, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne die Excel-Datei, in der Du die Funktion implementieren möchtest.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Wähle im Projektfenster das Arbeitsblatt aus, in dem die Funktion arbeiten soll.
  4. Füge den folgenden Code in das Arbeitsblattmodul ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, Range("W21:Y22")) Is Nothing Then
        Target = ""
    End If
End Sub
  1. Füge zusätzlich diesen Code für die Änderung des Textes hinzu:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("W21:Y22")) Is Nothing Then
        Select Case Target.Value
            Case Is = ""
                Target.Value = "Please enter special requirements"
                Target.Font.ColorIndex = 16
                Target.Interior.ColorIndex = 15
            Case Else
                Target.Font.ColorIndex = 1
                Target.Interior.ColorIndex = 43
        End Select
    End If
End Sub
  1. Schließe den VBA-Editor und teste die Funktion in Deinem Arbeitsblatt.

Häufige Fehler und Lösungen

  • Problem: Der Text bleibt, wenn ich auf die Zelle klicke.

    • Lösung: Stelle sicher, dass Du den Code im richtigen Arbeitsblattmodul eingefügt hast und dass die Zellen W21:Y22 korrekt angegeben sind.
  • Problem: Der Text wird nicht angezeigt, wenn die Zelle leer ist.

    • Lösung: Überprüfe den Worksheet_Change-Code auf Fehler. Achte darauf, dass die Zelle tatsächlich leer ist, bevor der Text hinzugefügt wird.

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, kannst Du auch die Datenüberprüfung in Excel verwenden, um Hinweise zu geben. Du kannst einen Eingabeprompt erstellen, der erscheint, wenn der Benutzer auf die Zelle klickt.

  1. Wähle die Zelle aus.
  2. Klicke auf "Daten" und dann auf "Datenüberprüfung".
  3. Wähle "Eingabemeldung" und füge Deine Anweisung hinzu.

Diese Methode zeigt jedoch keinen Text an, wenn der Benutzer die Zelle leer macht.


Praktische Beispiele

Hier ist ein praktisches Beispiel, um zu verdeutlichen, wie diese Codes funktionieren:

  1. Du hast die Zellen W21 und W22, die eine Eingabe vom Benutzer benötigen.
  2. Wenn der Benutzer auf diese Zellen doppelklickt, wird der Hinweis "Please enter special requirements" angezeigt, wenn die Zelle leer ist.
  3. Wenn der Benutzer etwas eingibt, wird der Text entfernt und die Formatierung geändert.

Tipps für Profis

  • Nutze die Möglichkeit, verschiedene Farb- und Schriftformatierungen anzuwenden, um eine visuelle Rückmeldung zu geben.
  • Experimentiere mit weiteren VBA-Funktionen, um die Benutzererfahrung in Deinen Excel-Dokumenten zu verbessern, wie z.B. das Hinzufügen von Fehlermeldungen oder Bestätigungsdialogen.

FAQ: Häufige Fragen

1. Kann ich diese Methode in Excel Online verwenden?
Leider funktioniert VBA nur in der Desktop-Version von Excel. Excel Online unterstützt keine VBA-Makros.

2. Was passiert, wenn ich den Code nicht richtig einfüge?
Wenn der Code nicht korrekt eingefügt wird, wird die Funktion nicht wie gewünscht arbeiten. Achte darauf, dass Du den Code im richtigen Modul und ohne Syntaxfehler einfügst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige