Nun genauere Fragestellung !
16.04.2002 12:33:19
Karl-Heinz
Hallo Volker!
Kopiere ich mit
Sub ReportErstellen()
'
' ReportErstellen Makro
' Ziel des Makros:
' Kopieren eines Tabellenblattes
Sheets("FAQ").Select
Sheets("FAQ").Copy Before:=Sheets(2)
'
End Sub
ein Sheet, gehen in der Zelle Informationen verloren:
Original der Zelle: (Return entspricht ALT+Return in Zelle)
__START__
Beispiel für eine Zelle, wo Daten verloren gehen !
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
__END__
Nach der Kopie auf dem erzeugten Sheet ist in Zelle nur noch:
__START__
Beispiel für eine Zelle, wo Daten verloren gehen !
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
DDDDDDD
_____________________________________________
Für mich scheint, das die Methode Copy nur eine bestimmte Anzahl von Zeichen in einer Zelle berückscihtigt. Anscheinend muss man hier Zelle für Zelle kopieren. Nur hierfür habe ich bis jetzt keine Lösung, da ich annehme, dies ist ein allgemeines Problem. Vielleicht gibt es für die Methode auch einen Parameter, welchen ich noch nicht gefunden habe.
Vielen Dank, Gruss Karl-Heinz