VBA CommandButtons aktivieren/deaktivieren

[Kuwer]

Hallo,

wären dafür CheckBoxen (Kontrolkästchen) nicht besser geeignet?

Gruß Uwe

[mmat]

Achso, ja das sind ja eigentlich 2 Probleme nicht nur eins. Das kostet dann aber doppelt

Zum einen werden die Knöpfe in Abhängigkeit von c10 angezeigt oder verborgen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long
  If Target <> Range("C10") Then Exit Sub
  n = Target.Value
  If (n < 1) Or (n > 6) Then MsgBox "Falsche Eingabe": Exit Sub
   
  CommandButton1.Visible = (n >= 1)
  CommandButton2.Visible = (n >= 2)
  CommandButton3.Visible = (n >= 3)
  CommandButton4.Visible = (n >= 4)
  CommandButton5.Visible = (n >= 5)
  CommandButton6.Visible = (n = 6)
End Sub

Und dann soll auch noch was passieren, wenn man auf einen sichtbaren Knopf drückt. Das kann man mit dem von mir bereits veröffentlichten Code umsetzen, da fehlen nur die Zeilen, die die gewünschte Aktion auslösen, der Farbwechsel ist schon drin.

[Kuwer]

Hallo,

hier mal eine Variante mit CheckBoxen so wie ich es verstanden habe:

Private Sub CheckBox1_Click()

 CheckBoxenSichtbarkeit

End Sub

Private Sub CheckBox2_Click()

 CheckBoxenSichtbarkeit

End Sub

Private Sub CheckBox3_Click()

 CheckBoxenSichtbarkeit

End Sub

Private Sub CheckBox4_Click()

 CheckBoxenSichtbarkeit

End Sub

Private Sub CheckBox5_Click()

 CheckBoxenSichtbarkeit

End Sub

Private Sub CheckBox6_Click()

 CheckBoxenSichtbarkeit

End Sub



Private Sub CheckBoxenSichtbarkeit()

  Dim i As Long, j As Long

  For i = 1 To 6

    j = j - Me.OLEObjects("CheckBox" & i).Object.Value

  Next i

  If j = Range("C10").Value Then j = 0

  For i = 1 To 6

    Me.OLEObjects("CheckBox" & i).Visible = Me.OLEObjects("CheckBox" & i).Object.Value - j

  Next i

End Sub

Gruß Uwe

[DieMarie]

Vielen Dank für eure Hilfe :)

Habe es jetzt aber doch "einfacher" über den Datenschnitt gelöst.

[DieMarie]

Aber eine Frage habe ich noch.

Der Datenschnitt umfasst:

Alternative 1
Alternative 2
Alternative 3
Alternative 4
...


Wenn ich im Datenschnitt NUR Alternative 1 auswähle möchte ich über den Klick auf den Datenschnitt das bestehende Makro "AusblendenA2-A6" aufrufen.
Äquivalent dazu wenn ich 1 und 3 auswähle soll das Makro "AusblendenA2_A4" aufegrufen werden.

Wisst ihr, ob man über den Datenschnitt ein Marko starten kann?

[Storax]

Wisst ihr, ob man über den Datenschnitt ein Marko starten kann?
Ja, das geht über Makro zuweisen, aber dann ist der Datenschnitt als solcher nicht mehr nutzbar.
Besser ist es über die Events zu gehen, die beim Ändern eines Datenschnitts ausgelöst werden.