Hallo Zusammen,

würde gerne mein Textfeld positionieren.

Habe es wiefolgt funktioniert. Klappt auch, leider ist kann ich den Namen des Arrays  nicht mit der Variablen k ansteuern.....
Das ganze soll in einem Loop am Ende für mehrere Textboxen funktionieren.

Kann mir jemand sagen wie ich das Array mit der Variablen k ansteuern kann ?

Vielen Dank und Viele Grüße,

Mike

Sub Test_3()

w = 5

Sheets("Stakeholder_Analyse").Activate
Dim objShp As Object
Set objShp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20#, 20, 0#, 0#)
With objShp
    .Name = w
    With .TextFrame
      .AutoSize = msoTrue
     .Characters.Text = Sheets("Stakeholder_Analyse").Cells(w, 2).Value & " " & Sheets("Stakeholder_Analyse").Cells(w, 3).Value & " " & Sheets("Stakeholder_Analyse").Cells(w, 4).Value
    End With
    'Formatierung der Textbox
    
    .Fill.ForeColor.SchemeColor = 9
    .Fill.Visible = msoFalse
    .Line.Visible = msoFalse
    
End With

ActiveSheet.Shapes.Range(Array("VarRaw")).Select
ActiveSheet.Shapes.Range(Array("VarRaw")).Top = Range("K2").Top
ActiveSheet.Shapes.Range(Array("VarRaw")).Left = Range("K2").Left