Hallo Leute,
ich habe ein ToDo Liste die durch VB eine neue Datei bereitstellt, in der Tabellenblätter von der Originaldatei rüberkopiert werden.
Das Problem ist ja, dass Excel 2003 alle Zellen die eine länge von über 255 Zeichen hat verkürzt.
Somit hab ich gedacht, man könnte doch eine Schleife durchlaufen lassen in der neu erstellten Datei, die sich alle Zellen mit 255 oder über 255 sich merkt, in die alte Datei geht und diese dann einzeln rüberkopiert?
Hab schonmal das hier gemacht, aber komme nichmehr weiter.
firstLine = 2
lastLine = 8
limit = 255
lenRangeK = Len(Range("K" & firstLine).Value)
For j1 = firstLine To lastLine Step 1
If lenRangeK >= limit Then MsgBox Range("k" & j1)
Next
Die zu vergleichende Zellen befinden sich in "K" und gehen in der neuen Datei die erstellt wird eben bis Zeile 8.
Wäre sehr dankbar für eure Hilfen
|