Hallo,
nur mit chr(13) funktioniert es auch nicht.
Vielleicht formuliere ich das Problem zum leichteren Verständnis noch einmal allgemeiner:
Ich habe eine Textdatei in der unter anderem einzelne Einträge mehrfach untereinander angezeigt werden, zB
Test
Name
Name
Name
Test2
Bild
Bild
Test 3
Haus
Haus
Haus
Ein VBA-Skript lest nun diese Textdatei ein (funktioniert einwandfrei) und soll diese mehrfach untereinander vorkommenden Einträge durch einen einzelnen ersetzen und dann die neue Textdatei wiederzurückgeben, d.h. die neue Textdatei lautet dann:
Test
Name
Test2
Bild
Test 3
Haus
Ich benötige nun eine Lösung wie ich ein solches Muster von gleichen untereinanderliegenden Einträgen in einen String packe damit ich mit der Replace-Funktion arbeiten kann und damit eine Bereinigung vornehmen kann.
"Haus" & chr(13) & "Haus" & chr(13) & "Haus" funktioniert leider nicht. Irgendetwas scheint da noch zu fehlen.
|