|
Hallo allerseits!
Es ist mal wieder Zeit für eine "super-qualifizierte" Anfrage meinerseits. Ich hoffe, dass ihr mir dabei helfen könnt :) Mit sehr, sehr viel Hilfe aus diesem Forum ist folgender Code entstanden, der Zellentext eines Bereiches einzeln mit dem Text von Formen abgleicht. Falls der Zellentext mit keiner Form korrespondiert, soll eine solche Form erzeugt und an einer best. Stelle eingefügt werden.
Jetzt zur konkreten Positionierung: Die Suche nach dem Zelleninhalt läuft meiner Beobachtung nach so ab, dass in der ersten Reihe alle Werte von links nach rechts abgeprüft werden und dann die nächste Reihe dran kommt, und das so lange bis alles überprüft wurde. Für die Positionierung der Formen brauche ich einen shape.Top und shape.Left Wert. Shape.top ist dabei von der Reihe, shape.Left von der Spalte des nicht gefundenen Wertes abhängig. Nun weiß ich aber nicht genau, wie ich das in Code ausdrücken soll.
Die Zellentextsuche beginnt in Zeile 3, die korrespondierende shape.Top hierzu wäre 276.4688 (in Punkten). Also für Reihe
c.row (Start = 3) ist shape.Top
3 276.4688
4 276.4688 + 29.2243
5 usw 276.4688 + 29.2243 + 29.2243 usw.
Die Spalten und shape.Left verhalten sich zueinander wie folgt:
c.column (Start = 4)
|