Office: ja nein Button

Hallo Excel Spezialisten.

Vielen Dank für das wirklich tolle Forum und die superproffesionelle Hilfe.

Ich hab eine Datei in der einfach ein Ja und ein Nein Button stehen soll.

z.B. in E1 soll der Ja, in F1 der Nein Button sein.

Klicke ich nun auf Ja soll bitte in G1 das Wort Ja stehen. Klicke ich auf Nein soll ebenfalls in G1 das nein stehen und wenn möglich leicht rot unterlegt sein.

Wie bewerkstellige ich das?

1000 Dank im Vorhinein

Mendolin aus der Eifel

 

Hallo!

Öffne die Werkzeugleiste über
Menü Ansicht > Symbolleisten > Steuerelement-Toolbox
Erstelle aus dieser einen Button und beschrifte ihn mit "Ja".
(Die Größe des Buttons kann man genau an die Zellränder anpassen, wenn man beim Ziehen die Alt-Taste gedrückt hält.)
Rechtsklick auf den Button > Code anzeigen
Vervollständige den vorgegebenen Coderumpf wie folgt:

Code:

Private Sub CommandButton1_Click()
Range("G1").Value = "Ja"
Range("G1").Interior.ColorIndex = xlNone
End Sub

Analog für den zweiten Button mit diesem Code:

Code:

Private Sub CommandButton2_Click()
Range("G1").Value = "Nein"
Range("G1").Interior.Color = RGB(255, 100, 100)
End Sub

Die Sättigung des Rot-Tons kannst du anpassen:
Je größer (0-255) die beiden hinteren Werte (jetzt beide 100) desto blasser das Rot.
Zurück in der Tabelle, beende den Entwurfsmodus (erste Schaltfläche der Symbolleiste) und die Buttons sind einsatzbereit.
Sollen die Buttons noch weiter bearbeitet werden, dann wieder den Entwurfsmodus aktivieren.

PS: Ich sehe, das Einloggen klappt wieder...

 

Allerbesten Dank

Das funktioniert so allerdings nur in Zeile 1.

Ich dachte ich kann das abändern wie zu sehen

Private Sub CommandButton1_Click()

Range("G1:G5").Value = "Ja"
Range("G1").Interior.Color = RGB(0, 0, 255)
End Sub


Private Sub CommandButton2_Click()

Range("G1:G5").Value = "Nein"
Range("G1").Interior.Color = RGB(255, 200, 200)
End Sub

aber das geht nicht.

Ich konnte zwar die Buttons ziehen aber meine leichtveränderte Formel funktioniert nicht

Es sollte gehen von G1 bis G600

Für nochmalige Hilfe jetzt schon Danke.

Das Einloggen geht wieder neues Passwort angefordert.

Danke

 

Heißt das im Umkehrschluss, dass du 1200 (!!) Buttons einbauen willst?
Davon kann ich nur dringendst abraten, da das deine Datei katastrophal ausbremsen wird und zudem immensen Speicherplatz benötigt.

Dann nutze lieber die Variante der Gültigkeitsprüfung (Menü Daten), mit der du DropDown-Zellen erstellst mit den Auswahlmöglichkeiten "Ja" und "Nein".
Ist zwar nicht ganz so komfortabel in der Bedienung wie die Buttons, aber schlussendlich weitaus effektiver in der Performance!

 

Danke für die wichtige Info mit dem Ausbremsen. Eigentlich war das mein Gedanke.

Was ist dann mit dem Steuerelement Kontrollkästchen. Ich kann das mit ja formatieren und wenn ja zutrifft dann ein Häkchen dran. Bremst das auch aus?

Die Thematik ist: Es ist eine Mitgliederdatei und der Kassierer hätte gerne die Spalte Beitrag bezahlt.

Logich kann ich manuell ein ja schreiben oder ein nein. Ich wollte nur etwas komfortabeleres einbauen also einfach ein Klick.

Gruß Mendolin

 

Das Problem bleibt bei einem Kontrollkästchen (in dieser Menge) leider das gleiche...
Was wäre denn mit der ganz einfachen Variante, nur in die jeweilige Zelle ein "x" (oder sonst was) zu setzen?
(Über Symbol-Schriftarten kann man das ja aussehen lassen wie ein Häkchen)
Auf die Spalte kann man dann auch einen Autofilter setzen und mit "Leer" oder "Nichtleer" wunderbar seine Pappenheimer ausfindig machen.
Oder auch mit der bedingten Formatierung leere Zellen rot oder gefüllte Zellen grün färben.

 

Nochmals Danke.

Das mache ich Schrift Häkchen und bedingte Formatierung.

Prima und gut Danke

 

Hallo!

Das kleine "a" der Schriftart "Webdings" ist z.B. ein Häkchen. Eigentlich ist diese Schriftart auf allen Windows-Rechnern standardmäßig installiert.

Man könnte sogar noch in VBA etwas basteln, das alle beliebigen Eingaben automatisch in dieses Häkchen umgewandelt werden, falls der Kassierer sich nun überhaupt nicht mit der Bedienung von PCs auskennt (oder Wurstfinger hat... :-D )