Checkbox1 aktivieren und Checkbox2 damit deaktivieren und umgekehrt

Question

Mahlzeit zusammen!

Ich bin absoluter Neuling. Bitte Welpenschutz aktivieren. ;-)
Ich baue mir gerade eine Tabelle zusammen und bräuchte Hilfe.

Die Tabelle soll Baugruppen auflisten, in denen man einzelne Varianten auswählen soll.

Bsp.:

Baugruppe Bildschrim: Checkbox 1 = Röhrenbildschirm
Checkbox 2 = TFT-Bildschirm (Checkbox aus Steuerelement-Toolbox)

Also 2 Varianten in einer Baugruppe. Man darf aber nur eine auswählen und wenn eine ausgewählt wurde, sollte die andere nicht mehr auszuwählen sein.

Dann gehts weiter zur nächsten Baugruppe.

z.B. Baugruppe Aufbau: Checkbox3 = PC Desktop Checkbox4 = PC Workstation

Habe schon diverse Sachen im Netz gesucht. Habe die Eierlegendewollmilchsau aber nicht gefunden. ;-)

Besten Dank für Eure Hilfe im voraus!

MfG __Freelancer__

Answer 1

Es sieht mir ein wenig danach aus, dass du den Gaul von hinten aufzäumen willst. ;-)
Hast du denn schon eine Tabelle mit den Daten?
Wenn ja, warum löst du das nicht einfach mit AutoFiltern?

Auf jeden Fall brauchen wir noch mehr Infos.

Gruß Flupo

Answer 2

Hi,

verwende OptionButtons anstelle von CheckBoxen und gib den zusammengehörigen einen Gruppennamen nach diesem Muster:

Sub GruppenName()
ActiveSheet.OLEObjects(1).Object.GroupName = "Gruppe1"
ActiveSheet.OLEObjects(2).Object.GroupName = "Gruppe1"
ActiveSheet.OLEObjects(3).Object.GroupName = "Gruppe2"
ActiveSheet.OLEObjects(4).Object.GroupName = "Gruppe2"
ActiveSheet.OLEObjects(5).Object.GroupName = "Gruppe3"
ActiveSheet.OLEObjects(6).Object.GroupName = "Gruppe3"
End Sub

dann ist die Auswahl immer nur zwischen den zu einee Gruppe gehörigen möglich.

Bis später,
Karin

Answer 3

Hallo zusammen!
Danke schonmal für eure Antworten. Das Problem ist nicht die Zusammengehörigkeit der Gruppen sondern, dass sich Bauteile untereinander aussschliessen sollen.

z.B. Wenn ich in der Baugruppe Aufbau: PC _Workstation wähle sich in der Baugruppe z.B. Laufwerk die Checkbox Laufwerk deaktiviert. Weil das bsp. vom Aufbau nicht passt.

Sorry für die komplexe Problemstellung.

Gruß

Answer 4

Hi,

dann schreibe in das Click-Ereignis der einzelnen Checkboxen, welche anderen Checkboxen deaktiviert werden sollen.

Bis später,
Karin

Answer 5

Hi Beverly!

hättest Du dafür einen Beispielcode z.B. das checkbox1 die checkbox2 deaktiviert? Hab nämlich von der programmierung im VBA noch wenig Ahnung.

Besten Dank für die Mühe!

Gruß

Answer 6

Hi,

Private Sub CheckBox1_Click()
If CheckBox1 Then CheckBox2 = False
End Sub

Bis später,
Karin

Answer 7

Hi Beverly,

Danke für den Code habe es ausprobiert und funzt super.

Gibt es die Möglichkeit, dass anstatt der Haken in der Checkbox2 verschwindet, die komplette Checkbox2 "ausgeschaltet","Grau wird",deaktiviert" wird? Ich also erst den Haken in Checkbox1 rausnehmen muss, dass sich checkbox2 wieder "aktiviert"?

Gruß

Answer 8

Private Sub CheckBox1_Click()
If CheckBox1 Then CheckBox2.Enabled = False
End Sub

Gruß Flupo

Answer 9

Besser ist noch, das Ganze gleich in beide Richtungen zu definieren - also die Ab- und Anschaltung:

Private Sub CheckBox1_Change()
If CheckBox1 Then CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End Sub

Gruß Flupo

Answer 10

Hinweis noch:
Der "ELSE"-Zweig muss mit in die "IF"-Zeile.

Gruß Flupo