Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
632to636
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
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

shapes in Range zählen

shapes in Range zählen
11.07.2005 16:54:58
Bräuer
Hallo zusammen,
wie kann man Shapes mittels VBA in einem bestimmten Range zählen?
Zum Beispiel: Range ("A10:H20"), auf der ganzen Seite befinden sich 20 Shapes,
im Range aber nur 10.
Global geht es ja mit: ActiveSheet.Shapes.Count (Ergebnis=20)

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

Betreff
Datum
Anwender
Anzeige
AW: shapes in Range zählen
11.07.2005 18:13:08
ransi
hallo bräuer
versuch mal so:
Option Explicit
Public

Sub test()
Dim bild As Shape
Dim bereich As Range
Set bereich = Range("A10:H10")
Dim zaehler As Integer
For Each bild In Shapes
If Not Intersect(bild.TopLeftCell, bereich) Is Nothing Then zaehler = zaehler + 1
Next
MsgBox zaehler
End Sub

ransi
AW: shapes in Range zählen
11.07.2005 18:28:02
Bräuer
Danke ransi,
ist ganz prima !!!!!!!!!!! :-)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige