Hallo,
hoffentlich weiss jemand von euch Rat.
Range("A1") enthält tausend Zeichen.
Range("A2") = Range("A1").Text : bei weniger als ~1050 Zeichen funktioniert
Range("A1").Copy Range("A2").Select ActiveSheet.Paste : "Zeichenanzahl egal - funktioniert"
Range("A2") = Range("A1").Text : bei MEHR als ~1050 Zeichen funktioniert dies leider nicht mehr. Excel kopiert eben nur die ersten ~1050 Zeichen.
Die Copy&Paste Methode fällt leider in diesem Fall weg. Es soll weiterer Text einer Zelle angefügt werden, die unter Umständen schon über 1000 Zeichen enthält. Codebeispiel:
###
Range(problemtext_feld & aktuelle_zeile) = Range(problemtext_feld & aktuelle_zeile).Text & Range(temp_datum_feld).Characters(1, 8).Text & Chr(10) & Range(problemtext_feld & aktuelle_zeile + 1).Text & Chr(10)
###
(Text der aktuellen Zeile ist Text der aktuellen Zeile plus einen Datumseintrag plus Linefeed plus Text der folgenden Zeile plus Linefeed)
Ansätze hab ich über ".Characters.Insert String:="
( https://www.herber.de/forum/index.htm?https://www.herber.de/forum/archiv/80to84/t83148.htm und http://support.microsoft.com/default.aspx?scid=kb;de;505226) gefunden. Leider war es mir nicht möglich dies funktionsfähig umzusetzen:
Nach 255 Zeichen nimmt er mir von "Characters.Insert" nichts mehr an.
---
Alternativ: Weiss jemand eine andere Möglichkeit einer Zelle weiteren Text anzufügen?
Vielen Dank im Voraus!
Best regards
Q