AW: Button ein-/ausblenden bei bestimmten Bedingungen
19.06.2008 17:51:14
Beverly
Hi Moritz,
ich war davon ausgegangen, dass es sich um einen CommandButton aus der Steuerelement-Toolbox handelt. Wenn es einer aus der Formular-Symbolleiste ist, dann muss der Code so lauten:
Private Sub Worksheet_Calculate()
ActiveSheet.Shapes("Button 1").Visible = Range("B2") = 100 And Range("C2") = "ok"
End Sub
Den Namen der Schaltfläche erhältst du, indem du z.B. diesen Code im Einzeschrittmodus ablaufen lässt:
Sub shape_namen()
Dim inElement As Integer
For inElement = 1 To ActiveSheet.shapes.Count
ActiveSheet.shapes(inElement).Select
MsgBox ActiveSheet.shapes(inElement).Name
Next inElement
End Sub
Damit wird jedes Element selektiert und dann der Name in einer MsgBox angezeigt.
Die Formel ZUFALLSZAHL() benötgist du, damit das Worksheet_Calculate Ereignis ausgelöst wird.