CheckBox abfragen

24/04/2009 - 18:31 von Peter | Report spam
Hallo NG,

ich habe in einem Arbeitsblatt mehrere CheckBoxen
(Steuerelemente_Tool).
Ein Makro soll ausgeführt werden; aber nur wenn min. eine Box
angeklickt wurde.
Wie könnte man das lösen?

Gruß Peter
 

Lesen sie die antworten

#1 Melanie Breden
24/04/2009 - 21:09 | Warnen spam
Hallo Peter,

"Peter" schrieb:
ich habe in einem Arbeitsblatt mehrere CheckBoxen
(Steuerelemente_Tool).
Ein Makro soll ausgeführt werden; aber nur wenn min. eine Box
angeklickt wurde.
Wie könnte man das lösen?



folgende Funktion liefert einen Wahrheitswert, wenn im angegebenen
Tabellenblatt eine CheckBox aktiviert ist:

Public Function IsCheckBoxActivate(wks As Worksheet) As Boolean
Dim shp As Shape

For Each shp In wks.Shapes
If shp.DrawingObject.progID = "Forms.CheckBox.1" Then
If shp.DrawingObject.Object.Value = True Then
' MsgBox "CheckBox '" & shp.DrawingObject.Object.Caption & "'
ist aktiviert"
IsCheckBoxActivate = True
Exit Function
End If
End If
Next shp
End Function

Die Funktion kannst du aus einer anderen Prozedur heraus aufrufen:

Public Sub MakroBeiCheckBox()
If IsCheckBoxActivate(ActiveSheet) = True Then
' hier weitere Befehle aufführen
End If
End Sub


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de

Ribbon-Programmierung für Office 2007 http://tinyurl.com/59awla

Ähnliche fragen