oleObjects

Forumthread: oleObjects
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: oleObjects

oleObjects

10.10.2012 19:55:39

Rolf

Hallo und Guten Abend,
für die "Beherrscher" sicher kein Problem, aber ich schaff es nicht.
Mit dieser Zeile wird mir die Anzahl aller OLEObjects auf dem aktuellen Blatt angezeigt. Ich möchte aber nur die Zahl der CommandButtons wissen.

Sub Anzahl()
[a1] = ActiveSheet.OLEObjects.Count
End Sub

Für eure Bemühungen herzlichen Dank!
Rolf

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: oleObjects

10.10.2012 20:11:28

Beverly
AW: oleObjects

10.10.2012 20:21:32

Rolf

AW: oleObjects

10.10.2012 20:11:28

Beverly

Hi Rolf,

Sub SchalterZaehlen()
Dim oobElement As OLEObject
Dim intSchalter As Integer
For Each oobElement In ActiveSheet.OLEObjects
With oobElement
If .progID = "Forms.CommandButton.1" Then
intSchalter = intSchalter + 1
End If
End With
Next oobElement
MsgBox intSchalter
End Sub