Wenn Sie über mehr als eine Optionsschaltfläche verfügen, kann nur eine der Optionsschaltflächen ausgewählt werden. Erschaffen Optionsschaltflächen In Excel VBA, führen Sie die folgenden Schritte aus.
1. Klicken Sie auf der Registerkarte Entwicklertools auf Einfügen.
2. Klicken Sie in der Gruppe ActiveX-Steuerelemente auf Optionsfeld.
3. Ziehen Sie zwei Optionsschaltflächen auf Ihr Arbeitsblatt.
4. Klicken Sie mit der rechten Maustaste auf die erste Optionsschaltfläche (stellen Sie sicher, dass der Designmodus ausgewählt ist).
5. Klicken Sie auf Code anzeigen.
Hinweis: Sie können die Beschriftung und den Namen eines Steuerelements ändern, indem Sie mit der rechten Maustaste auf das Steuerelement klicken (stellen Sie sicher, dass der Designmodus ausgewählt ist) und dann auf Eigenschaften klicken. Ändern Sie die Beschriftungen der Optionsschaltflächen in Weiblich und Männlich. Vorerst belassen wir OptionButton1 und OptionButton2 als Namen der Optionsfelder.
6. Fügen Sie die folgende Codezeile hinzu:
Wenn OptionButton1.Value = True Then Range("D3").Value = 10
7. Klicken Sie mit der rechten Maustaste auf die zweite Optionsschaltfläche (stellen Sie sicher, dass der Designmodus ausgewählt ist).
8. Klicken Sie auf Code anzeigen.
9. Fügen Sie die folgende Codezeile hinzu:
Wenn OptionButton2.Value = True Then Range("D3").Value = 20
10. Klicken Sie auf die Optionsschaltflächen auf dem Blatt (stellen Sie sicher, dass der Designmodus deaktiviert ist).
Ergebnis:
Obwohl es in einigen Situationen nützlich sein kann, Optionsschaltflächen direkt auf Ihrem Arbeitsblatt zu platzieren, sind Optionsschaltflächen besonders nützlich, wenn sie in einem Benutzerformular platziert werden.
