TypeOf ? Wie spreche ich Checkboxen an?
12.10.2006 22:39:30
Reinhard
an sich wollte ich nur ein makro schreiben was alle Checkboxen des Blattes durchgeht und dann prozentual ausgibt, wieviel Prozent ausgewählt sind. Also ermitteln wieviele den wert Nix, Falsch oder True haben.
Mit CB.Value kam ich nicht weiter und suchte im Ineternet und fand seltsamen Code, den ich mir anpasste. Da verstehe ich einiges nicht.
Auf dem Blatt gibt es 2 Checkboxen aus der Steuerelemnttoolbox.
Sub tt()
Dim CB
'For Each CB In ActiveSheet.CheckBoxes ' For Schleife wird nicht ausgeführt
'For Each CB In ActiveSheet.Controls 'Fehler 438
For Each CB In ActiveSheet.Shapes
MsgBox CB.Name
If TypeOf CB Is CheckBox Then
CB.Value = Unchecked
End If
Next
End Sub
Erste For-Schleife: Warum werden die beiden Checkboxen nicht errkannt?
Zweite For-Schleife, wieso der Fehler?
Dritte For-Schleife: die läuft durch, die Msgbox zeigt auch nacheinander Checkbox1 und Checkbox2 an, aber die If-bedingung wird nie erfüllt?
Nun ist in meiner Vba-Hilfe "Typeof" überhaupt nicht erwähnt, dito "unchecked"
Kommen die aus einem Verweis? Und wenn ja, wie kriege ich da Infos dazu.
Gruß
Reinhard
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..