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

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

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


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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige