shapes zeilenweise auszählen
12.07.2004 16:55:36
joe
ich habe in meiner tabelle links eine spalte, in die ich untereinander werte eintragen kann. diese werte lese ich mittels vba aus, und zeichne dann entsprechend viele rechtecke (addShape) in die arbeitsmappe.
d.h. es entstehen z.b. zehn zeilen mit je 20 rechtecken.
nun ist es aber manchmal nötig, dass einzelne rechtecke gelöscht werden müssen, so dass in manchen zeilen nur noch 18 oder 19 rechtecke vorhanden sind.
mein problem ist, dass ich zwar die gesamtanzahl der rechtecke auszählen kann, nicht aber die anzahl der rechtecke der einzelnen zeilen.
mein code zum auszählen der gesamtzahl lautet:
Sub module_zaehlen()
Dim myShape As Shape
Dim anzahl As Integer
anzahl = 0
For Each myShape In Tabelle23.Shapes
If (myShape.Type = msoShapeRectangle) Then
anzahl = anzahl + 1
End If
Next
Tabelle23.Range("S1").Value = anzahl
End Sub
vielleicht, kann mir jemand helfen, und mir sagen, wie ich erkenne, dass eine zeile rechtecke durchgezählt wurde, und ich diesen wert dann ausgeben kann.
danke im voraus
joe