Excel - kann ich eine Zelle so einstellen, dass sie einem bestimmten Wert entspricht, unabhängig davon, was darin eingegeben wurde?

Das ist, um jemandem einen Witz zu spielen ... Ich bin nicht sicher, ob es möglich ist, das zu tun, was ich will. Wir verteilen eine Excel-Datei unter Freunden, um Spieler für ein Golfturnier auszuwählen. Ich möchte eine Zelle (nenne sie A1) so einstellen, dass ein bestimmter Name (nenne sie Joe) angezeigt wird, unabhängig davon, was jemand eintippt.

A1 sollte leer sein, bis jemand versucht, einen Namen einzugeben. Wenn jemand einen Namen eingibt, ändert sich dieser automatisch in Joe, nachdem er die Eingabetaste gedrückt hat.

Die bedingte Formatierung funktioniert anscheinend nicht. Sie adressiert nur das Aussehen des Werts in Zelle A1.

Eine Formel funktioniert nicht, weil sie etwas in der Zelle sehen würden.

Automatisch korrigieren - obwohl es genau den Effekt hat, den ich suche - funktioniert nicht, wenn es auf meinem Computer gespeichert ist und nicht mit der Datei übertragen wird.

Irgendwelche Ideen?

Als makrofreie Alternative ändert dies nicht den Wert der Zelle, sondern die Anzeige der Zelle. Klicken Sie mit der rechten Maustaste auf die betreffende Zelle und klicken Sie dann auf "Zellen formatieren". Klicken Sie auf der Registerkarte "Zahlen" auf "Benutzerdefiniert" und geben Sie das folgende benutzerdefinierte Zahlenformat ein

"Joe";"Joe";"Joe";"Joe"

Erläuterung: Excel-Zahlenformate bestehen aus vier Teilen, die durch Semikolons getrennt sind. Der Wert der Zelle bestimmt, welcher Teil des Zahlenformats verwendet wird, und das Format sieht folgendermaßen aus:

[positive];[negative];[zero];[text] 

Da jeder Abschnitt eine fest codierte Zeichenfolge ist, wird "Joe" unabhängig von der Eingabe angezeigt, auch wenn eine Formel eingegeben wird (es sei denn, diese Formel gibt einen Fehler zurück). Normalerweise werden Zahlenformate verwendet, um negative Zahlen in Rot anzuzeigen oder um Werte nach dem Komma oder andere kosmetische Dinge auszurichten. Sie können aber auch verwendet werden, um sich mit Ihren Freunden zu messen.

Fügen Sie das folgende Ereignismakro in den Arbeitsblattcodebereich ein:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
   Application.EnableEvents = False
      Range("A1").Value = "Joe"
   Application.EnableEvents = True
End Sub