Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

oleObjects

Forumthread: oleObjects

oleObjects
10.10.2012 17: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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: oleObjects
10.10.2012 18: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

Anzeige
AW: oleObjects
10.10.2012 18:21:32
Rolf
Hallo Karin,
recht herzlichen Dank für die prompte Antwort.
Klappt wunderbar!
Bis zur nächsten Frage
Gruß Rolf
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige