Thema Datum  Von Nutzer Rating
Antwort
07.12.2009 08:44:47 Kevin
NotSolved
Blau Aw:Zellen kopieren die ü. 255 Zeichen haben
 07.12.2009 20:30:14 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
07.12.2009 20:30:14		 Views:
1044		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Zellen kopieren die ü. 255 Zeichen haben
Hallo Kevin,
du hast ja schon einmal diese Frage gestellt. Ich habe nicht geantwortet, weil ich Excel 2003 nicht zur Verfügung habe. Funktioniert das Kopieren einzelner Zellen mit mehr als 255 Zeichen mit VBA, z.B. mit
Worksheets("A").Cells(i, j) = Worksheets("B").Cells(i, j)
Falls ja, könntest du nach der Kopie eines jeden Tabellenblattes mit einer For-Next-Schleife die einzelnen zu langen Zellen kopieren

Workbooks(strOrgName).Activate
For Each ws In Worksheets
Sheets(ws.Name).Copy After:=Workbooks(strNewName).Sheets(i)
For j =1 to ws.Cells(Rows.Count, 11).End(xlUp).Row
If len(ws.cells(j,11)) größer 255 then
Workbooks(strNewName).Sheets(i).cells(j,11)=ws.cells(j,11)
End if
Next j
i = i + 1
Next

Der Vorschlag ist nicht geprüft und müsste vielleicht noch angepasst werden

Gruß
Holger



Kevin schrieb am 07.12.2009 08:44:47:

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.12.2009 08:44:47 Kevin
NotSolved
Blau Aw:Zellen kopieren die ü. 255 Zeichen haben
 07.12.2009 20:30:14 Holger
NotSolved