ich möchte gerne folgendes erreichen: Aufgrund des 255 Zeichenlimits für Textboxen/-felder, möchte ich - im vorliegenden Fall 4 - mehrere Textboxen mit dem Inhalt bestimmter Zellen befüllen.
Exemplarisch für eine einzelne Box sieht mein Code wie folgt aus:
Sub FillTextBox()
Dim StrategyText As String
Dim StrategyBox As Shape
Set StrategyBox = ActiveSheet.Shapes("Textfeld 1")
StrategyText = Range("A1").Value
StrategyBox.TextFrame2.TextRange.Characters.Text = StrategyText
End Sub
Leider scheitere ich daran das Ganze in eine Schleife zu packen sowie daran die benötigten Shapes (4 Textboxen) und Textranges richtig definieren und ansteuern bzw. abrufen zu können.Hier hatte ich soweit verstanden, dass ich die Textfelder sinnvollerweise als Variant und nicht als Shapes definieren sollte, da ich ein Array an Textboxen übergebe, also in etwa wie folgt:
Sub LoopThroughTxtFlds()
Dim TxtFld As Variant
Set TxtFld = Worksheets("Sheet1").Shapes.Range(Array("TxtFld1", "TxtFld2", "TxtFld3", " _
TxtFld4"))
[Schleife, um den Text aus einer ebenfalls zu definierenden Range von Zellen mit Text _
nacheinander in die Arrays aus dem TxtFld zu pasten]
End Sub
Hinzu kommt, dass die Schleife nicht einfach mit einem Zähler von 1 beginnen kann, da sich auf dem Worksheet noch andere Shapes befinde; das oben definierte Array nimmt in meinem Fall aktuell bspw. die laufenden Nummer Shapes 2-5 an.Vielleicht kann mir jemand ein wenig auf die Sprünge helfen.
Dank und Gruß