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
_____________________________________________
Danke für Eure Hilfe. Gruss, Carlos