in einem sheet hat ein Kollege einen Dokumentationstext über 11 (untereinander stehenden) Zellen erfaßt. Da derartige Texte sinnvollerweise in einer Textbox erfaßt werden sollten, habe ich aus der Zeichnen-Symbolleiste eine Textbox erstellt und wollte "mal eben" mit folgendem Code die Textbox füllen:
Sub Fuellen()
Dim txt As String
Dim i As Byte
txt = cells(7,1)
For i = 7 To 16
txt = txt & " " & Cells(i, 1)
Next i
ActiveSheet.Shapes("Text Box 10").TextFrame.Characters.Text = txt
Range("A1").Select
End Sub
Lasse ich den code so laufen, erhalte ich keine Fehlermeldung, aber die Text Box bleibt leer. Reduziere ich hingegen die TO - Grenze von 16 auf 7, so erscheint der Text in der Box. Ab To = 8 bleibt die Box leer.
Es scheint also irgendwelche Größenbeschränkungen zu geben ?
Dass die Schleife die txt-Variable grundsätzlich korrekt füllt, habe ich mit einer Msgbox nach der Schleife überprüft. Aber den langen Inhalt bekomme ich nicht in die Box ...
Vielleicht habe ich heute Morgen jedoch auch nur ein Brett vor dem Kopf.
Bin für jede Hilfe dankbar.
Einen sonnigen Gruß aus Köln
erwin