Sub Test_3()
Dim i As Integer
Dim cSh As New Collection
Dim sh(2) As Shape
For i = 1 To 3
Set sh(i - 1) = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 20 * i, 20#, 20#)
sh(i - 1).Name = "Variable" & i
sh(i - 1).TextFrame.AutoSize = msoTrue
sh(i - 1).TextFrame.Characters.Text = "Variabele " & i
Next i
For i = 1 To 3
sh(i - 1).Left = 250
Next i
For i = 1 To 3
cSh.Add ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 20 * i, 20#, 20#)
cSh.Item(cSh.Count).Name = "MeineTextbox_" & i
cSh.Item(cSh.Count).TextFrame.AutoSize = msoTrue
cSh.Item(cSh.Count).TextFrame.Characters.Text = "Hallo_" & i
Next i
For i = 1 To 3
cSh.Item(i).Left = 50
Next i
For i = 1 To 3
ActiveSheet.Shapes("MeineTextbox_" & i).Left = 100
Next i
End Sub