Zeilenbezug des Zeichenelements auslesen

Forumthread: Zeilenbezug des Zeichenelements auslesen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zeilenbezug des Zeichenelements auslesen

11.07.2008 21:19:39

Armin

Hallo,
ich habe folgendes Problem.
Ich habe mehrere Zeichenelemente (Rechtecke) in einem Arbeitsblatt. Die Rechtecke sind dabei genauso groß wie die Zelle. Gibt es eine Möglichkeit, um zu erkennen, über welcher Zelle sich das Zeichenelement Rechteck befindet. Ich bräuchte die Zelladresse bzw. die Zeilennummer.
Kann diese per VBA ermittelt werden?
Vielen Dank für euere Tipps
Armin

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilenbezug des Zeichenelements auslesen

11.07.2008 21:38:13

Peter
AW: kleine Verbesserung...

11.07.2008 21:53:04

Chris
AW: kleine Verbesserung... wer sagt dir ....

11.07.2008 23:59:09

Uduuh
AW: Ist natürlich richtig...

12.07.2008 10:39:00

Chris

AW: Zeilenbezug des Zeichenelements auslesen

11.07.2008 21:38:13

Peter

Servus,
Versuch so.


Sub t()
Dim shp As Shape
For Each shp In Sheets("Tabelle1").Shapes
MsgBox shp.TopLeftCell.Address(0, 0)
Next
End Sub

MfG
Peter

AW: kleine Verbesserung...

11.07.2008 21:53:04

Chris

Servus,
es könnten ja auch andere Shapes da sein:


Sub t()
Dim shp As Shape
For Each shp In Sheets("Tabelle1").Shapes
If shp.Name Like "Rectangle*" Then
MsgBox shp.TopLeftCell.Address(0, 0)
End If
Next
End Sub

Gruß
chris

AW: kleine Verbesserung... wer sagt dir ....

11.07.2008 23:59:09

Uduuh

Hallo,
... dass das Ding Rectangle x heißt?


Sub t()
Dim shp As Shape
For Each shp In Sheets("Tabelle1").Shapes
If shp.AutoShapeType = msoShapeRectangle Then MsgBox shp.TopLeftCell.Address(0, 0)
Next
End Sub

Gruß ausm Pott
Udo

AW: Ist natürlich richtig...

12.07.2008 10:39:00

Chris

...aber meistens heißen die von Haus aus Rectangle 1 oder 2...
Deine Lösung trifft den nagel jedoch genau auf den Kopf, auch wenn sie einer umbenannt hat.
Gruß
Chris