Optionsfeld

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Optionsfeld
von: Gerd
Geschrieben am: 02.11.2003 17:42:57

Hallo zusammen
Ich möchte in meiner Arbeitsmappe ein Optionsfeld haben das bei anklicken in Zelle G2 einen Formel ausgibt.
Beispiel Optionsfeld wenn angeklickt in Zelle G2 = "JA" sonst "NEIN"

Wie geht dies

Danke für die Antworten
GERD

Bild


Betrifft: AW: Optionsfeld
von: Klaus-Dieter
Geschrieben am: 02.11.2003 18:04:19

Hallo Gerd,

mit einem Optionsfeld geht das, wie ich meine, nicht. Das läßt sich mit einer Checkbox lösen.

Option Explicit
Private Sub CheckBox1_Click()
If CheckBox1 = True Then Cells(2, 7) = "Ja" Else Cells(2, 7) = "Nein"
End Sub
Private Sub OptionButton1_Click()
If OptionButton1 = True Then Cells(2, 7) = "Ja"
End Sub
Private Sub OptionButton2_Click()
If OptionButton2 = True Then Cells(2, 7) = "Nein"
End Sub


Code eingefügt mit: Excel Code Jeanie

Hier die erforderlichen Quelltexte. Der erste wäre für die Checkbox, die anderen beiden für die Optionsschaltflächen.


Gruß Klaus-Dieter




Bild


Betrifft: AW: Optionsfeld
von: Gerd
Geschrieben am: 02.11.2003 18:25:19

Hallo
Danke für die schnelle Antwort und es funktioniert
Frage noch; kann ich diese Checkbox auch in eine Symbolleiste einfügen???

Viele Grüße
GERD


Bild


Betrifft: AW: Optionsfeld
von: Gerd
Geschrieben am: 02.11.2003 18:25:29

Hallo
Danke für die schnelle Antwort und es funktioniert
Frage noch; kann ich diese Checkbox auch in eine Symbolleiste einfügen???

Viele Grüße
GERD


Bild


Betrifft: AW: Optionsfeld
von: Klaus-Dieter
Geschrieben am: 02.11.2003 18:47:40

Hallo Gerd,

leider nicht, aber ich habe eine andere Lösung für dich:
https://www.herber.de/bbs/user/1714.xls



Gruß Klaus-Dieter




Bild


Betrifft: AW: Optionsfeld
von: Gerd
Geschrieben am: 02.11.2003 19:40:13

Hallo
Da ist aber nix auser einem "NEIN"

Gerd


Bild


Betrifft: AW: Optionsfeld
von: Klaus-Dieter
Geschrieben am: 02.11.2003 20:49:20

Hallo Gerd,

du hast Recht, Fehler meinerseits. Ich hatte eine benutzerdefinierte Symbolleiste erzeugt. Die wird aber nur lokal beim Ersteller abgelegt. Deshalb konntest du sie nicht sehen. Anbei der dazugehörige Quelltext:

Option Explicit
Sub ja_nein()
If Cells(2, 7) <> "ja" Then Cells(2, 7) = "ja" Else Cells(2, 7) = "Nein"
End Sub


Code eingefügt mit:
Excel Code Jeanie

Wie man die Symbolleiste erzeugt und mit dem Makro verbindet, habe ich hier: Symbolleiste definieren beschrieben.

Gruß Klaus-Dieter




Bild

Beiträge aus den Excel-Beispielen zum Thema " Optionsfeld"