Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Checkboxes auf Worksheet mit Schleife abfragen

Betrifft: Checkboxes auf Worksheet mit Schleife abfragen von: Torsten
Geschrieben am: 22.08.2004 14:29:06

Hallo,

ich möchte das gleiche Makro für jede Checkbox ablaufen lassen, die ein Häkchen hat. Da ich aber nicht für jede Checkbox das gleiche Makro schreiben will, will ich alle Checkboxes in eine For-Next-Schleife einbinden.

Frage: Wie muss die Schleife aussehen, die alle Checkboxes auf einem Worksheet erfasst? Dem Sinn nach: For all checkboxes in worksheet...Next

Vielen Dank im Voraus,

Torsten

  


Betrifft: AW: Checkboxes auf Worksheet mit Schleife abfragen von: Ulf
Geschrieben am: 22.08.2004 15:11:01

Du kannst in einer Schleife Eigenschaften von controls ändern aber keine Ereignisse auslösen.
Dazu benötigst du ein Klassenmodul.

Ulf


  


Betrifft: AW: Checkboxes auf Worksheet mit Schleife abfragen von: Torsten
Geschrieben am: 22.08.2004 16:57:45

Hallo Ulf,

danke für deine Antwort. Hat mir mangels Kenntnisse zwar nicht wirklich weitergeholfen, habe im Archiv aber die Lösung gefunden.

Alles Gute,

Torsten


Sub ToolBoxChb()
Dim chb As OLEObject

For Each chb In ActiveSheet.OLEObjects
    If TypeName(chb.Object) = "CheckBox" Then
        If chb.Object.Value = True Then
            MsgBox ("True")
        End If
    End If
Next
End Sub



  


Betrifft: AW: Checkboxes auf Worksheet mit Schleife abfragen von: nighty
Geschrieben am: 23.08.2004 08:51:05

hi ulf :)

du koenntest dies auch mit globalen var erreichen (public(AnzahlCheckbox)) wie bei der checkbox auf true bzw. false setzen,waere aber nur zur tabellenlaufzeit aktiv,alternativ koennte man auch die zellen (bezugnehmen zur globalen var) die sich hinter den checkboxen befindet als lager benutzen und so dauerhaft und ueber eine schleife abfragbar waere.

gruss nighty


 

Beiträge aus den Excel-Beispielen zum Thema "Checkboxes auf Worksheet mit Schleife abfragen"