ich bin schon ein bissel verzweifelt.
Ich habe mehrere GroupBoxes in einem Tabellenblatt und je GroupBox sind mehrere Checkboxes enthalten. Ich möchte jetzt diese GroupBoxen auswählen und über eine Schleife die Checkboxen auslesen (also Wert und Text) bzw. brauche ich von allen die angehakt sind, den Text.
Eigentlich sollte es hiermit gehen:
For Each tmpShape In ActiveSheet.Shapes
With tmpShape
If .Type = msoGroup Then 'betrachtet nur alle Shapes die gruppiert sind
For i = 1 To tmpShape.GroupItems.Count
If .GroupItems(i).Type = msoFormControl Then
Debug.Print .GroupItems(i).DrawingObject.Object.Value
Debug.Print .GroupItems(i).AlternativeText
End If
Next i
End If
End With
Next tmpShape
Nur leider kennt er bei mir das Objekt DrawingObject nicht. Auch die Variante mit OLEObjects will nicht richtig funktionieren:
For Each oOle In ActiveSheet.OLEObjects
Debug.Print oOle.Object.Value
Debug.Print oOle.Object.Name
Next oOle
Da bekomme ich überhaupt nichts ausgelesen -> leerMuss ich noch etwas unter Excel bei den Verweisen einstellen?
Wäre super, wenn mir jemand weiterhelfen könnte.
Viele Grüße
Andreas