Ungewollte Veränderung der Textlänge
Stefan
ich habe folgendes Problem: In einem VBA-Programm lese ich Inhalte aus bestimmten Tabellen aus und gebe sie an einer anderen Stelle wieder aus. Die Inhalte (Texte, Zahlen, Datumsangaben, also unterschiedlichste Inhalte) bearbeite ich mit der Funktion "Format" und geben immer einen Text aus.
Durch die Anwendung von Format wird ein über 255 Zeichen großer Text auf 255 abgeschnitten. Gibt es evtl. eine andere Möglichkeit, Inhalte als Text zu formatieren mit mehr als 255 Zeichen? Zur Verdeutlichung habe ich folgendenn Code beigefügt, an dem man diesen Effekt gut erkennen kann.
Sub Text()
strText = "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod _
tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet."
MsgBox Len(strText)
strTextNeu = Format(strText, "@")
MsgBox Len(strTextNeu)
End Sub
Vielen Dank im Voraus für Euere HilfeGrüße Stefan