ich möchte gerne ein Textfeld via VBA in ein Tabellenblatt einfügen und mit einem Text füllen. Folgenden Code habe ich bis dato verwendet:
Sub Textfeld_füllen()
Dim Textfeld As Shape
Set Textfeld = ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, ActiveSheet.Range("B1") _
.Left, ActiveSheet.Range("B2").Top, 0, 0)
Textfeld.TextFrame.AutoSize = True
Textfeld.TextFrame.Characters.Text = "Hier soll der Text stehen"
End Sub
Das Problem ist das Excel ab einer gewissen Länge des Textes das Textfeld überhaupt nicht befüllt. Bis zu dieser Länge funktioniert das obige Makro einwandfrei. Da ich dies zunächst in Excel 2000 (leider :-( ) programmieren musste, habe ich es vergleichsweise auch in Excel 2016 getestet. Auch dort keine Probleme. So wie ich das sehe, hat Excel in der Version 2000 hier tatsächlich ein Problem. Vielleicht hat jemand noch eine andere Idee oder ich übersehe evtl. etwas?! Wäre über jeden Tipp dankbar und vorab schon einmal vielen Dank.Johannes