Öffnen einer Schaltfläche bei bestimmten Eingaben

[BrainStormer]

Moin,
ich hab eine kleine Frage zu Excel. Kurz was zu mir: Ich bin nicht ganz Excel neuling und hab während meines Studiums viel mit Excel gearbeitet. Aber eher in die Richtung Graphen und Tabellen auswerten. Weniger mit VBA oder den Entwicklertools.
Meine Frage / Problemstellung ist folgende:
Ich habe : Option 1, Option 2 und Option 3, alles mit Kontrollkästchen verlinkt.
Wenn ich jetzt nun Option 1 und 2 auswähle soll Schaltfläche 1 erscheinen, oder wenn ich Option 2 und 3 auswähle soll Schaltfläche 2 erscheinen.
Weiß jemand wie ich diese Problemstellung lösen kann? Ich hätte da an eine Wenn dann Funktion gedacht. Aber ich weiß nicht wie ich eine Wenn dann Funktion mit dem erscheinen einer Schaltfläche verknüpfen kann.

LG BrainStormer

[RPP63]

Hi!
Kommt drauf an, ob ActiveX oder Formularsteuerelemente.
Lade doch mal Deine Datei hoch!

Gruß Ralf

[BrainStormer]

Viel gibts da nicht (siehe Bild) ich will einfach die Schaltfläche (Formularsteuerelement) nur bei bestimmten Kombinationen von den Optionen anzeigen lassen.

[Kuwer]

Hallo,

füge folgendes Makro in ein allgemeines VBA-Modul ein:

Code:

Sub Kontrollkästchen_Klicken()
 Select Case (ActiveSheet.CheckBoxes("Kontrollkästchen 21") = 1) * -1 & _
         (ActiveSheet.CheckBoxes("Kontrollkästchen 22") = 1) * -1 & _
         (ActiveSheet.CheckBoxes("Kontrollkästchen 23") = 1) * -1
   Case "110", "011"
     ActiveSheet.Buttons("Schaltfläche 24").Visible = True
   Case Else
     ActiveSheet.Buttons("Schaltfläche 24").Visible = False
 End Select
End Sub

Dann weise im Excelblatt zurück den 3 Schaltflächen per Rechtsklick dieses Makro zu.
Die Namen der 4 Elemente musst Du entsprechend ändern.

[BrainStormer]

Hallo,

füge folgendes Makro in ein allgemeines VBA-Modul ein:

Code:

Sub Kontrollkästchen_Klicken()
 Select Case (ActiveSheet.CheckBoxes("Kontrollkästchen 21") = 1) * -1 & _
         (ActiveSheet.CheckBoxes("Kontrollkästchen 22") = 1) * -1 & _
         (ActiveSheet.CheckBoxes("Kontrollkästchen 23") = 1) * -1
   Case "110", "011"
     ActiveSheet.Buttons("Schaltfläche 24").Visible = True
   Case Else
     ActiveSheet.Buttons("Schaltfläche 24").Visible = False
 End Select
End Sub

Dann weise im Excelblatt zurück den 3 Schaltflächen per Rechtsklick dieses Makro zu.
Die Namen der 4 Elemente musst Du entsprechend ändern.

Sehr cool, danke hatte das Erstmal komplizierter gelöst aber das sieht Top aus, danke:)