Damit will ich jemandem einen Streich spielen ... ich bin mir nicht sicher, ob ich das machen kann, was ich will. Wir verteilen eine Excel-Datei unter Freunden, um Spieler für ein Golfturnier auszuwählen. Ich möchte eine Zelle (nennen wir sie A1) so einrichten, dass ein bestimmter Name (nennen wir sie Joe) angezeigt wird, egal, was jemand eingibt.
A1 sollte leer bleiben, bis jemand versucht, einen Namen einzugeben. Wenn jemand einen Namen eingibt – egal welchen – ändert sich der Eintrag automatisch in Joe, nachdem er die Eingabetaste gedrückt hat.
Die bedingte Formatierung funktioniert nicht, da sie sich anscheinend nur auf das Aussehen des Werts in Zelle A1 bezieht.
Eine Formel funktioniert nicht, weil sie etwas in der Zelle sehen würde.
Die Autokorrektur hätte zwar genau den gewünschten Effekt, funktioniert aber nicht, da die Daten auf meinem Computer gespeichert sind und nicht mit der Datei übertragen werden.
Irgendwelche Ideen?
Antwort1
Als Alternative ohne Makros ändert sich dadurch nicht der Wert der Zelle, sondern die Anzeige der Zelle. Klicken Sie mit der rechten Maustaste auf die betreffende Zelle und dann auf „Zellen formatieren“. Klicken Sie auf der Registerkarte „Zahl“ auf „Benutzerdefiniert“ und geben Sie dann das folgende benutzerdefinierte Zahlenformat ein
"Joe";"Joe";"Joe";"Joe"
Erklärung: Excel-Zahlenformate bestehen aus vier Teilen, die durch Semikolon 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, selbst 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, Werte an der Dezimalstelle auszurichten oder andere kosmetische Dinge zu tun. Sie können aber auch verwendet werden, um Ihre Freunde zu ärgern.
Antwort2
Geben Sie folgendes einEreignismakroim Arbeitsblattcodebereich:
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