VBA: Array von Textboxen mit Zellwerten befüllen
14.08.2018 10:04:50
Textboxen
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
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
Vielleicht kann mir jemand ein wenig auf die Sprünge helfen.
Dank und Gruß