Guten Morgen und vielen Dank für deine Antwort,
ich hätte es sehr gerne über den Namen probiert, was in meinem Fall ja die Variable "w" ist, welche im ersten Durchlauf dem Wert 5 entspricht.
Dim objShp As Object
Set objShp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20#, 20, 0#, 0#)
With objShp
.Name = w
Mein Problem ist bei der Positionierung die Textbox mit dem Variablen Namen anzusprechen.
ActiveSheet.Shapes.Range(Array(w)).Select
ActiveSheet.Shapes.Range(Array(w)).Left = Range("K2").Left
ActiveSheet.Shapes.Range(Array(w)).Top = Range("K2").Top
funktioniert leider nicht....
Ich habe als Bsp. Array verwendet, da ich nicht weiss wie ich es per Namen ansprechen kann. Hättest du einen Lösungsvorschlag für mich ? ;)
Viele Grüße
|