Hallo Karl-Heinz,
in einer Zelle(!) koennen bis zu 32.000 Zeichen stehen.
Du scheinst aber ein Problem mit dem Kopieren eines ganzen Blattes zu haben. Was genau klappt denn nicht?
Gruss Volker
Hallo Karl-Heinz,
in einer Zelle(!) koennen bis zu 32.000 Zeichen stehen.
Du scheinst aber ein Problem mit dem Kopieren eines ganzen Blattes zu haben. Was genau klappt denn nicht?
Gruss Volker
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
Gibt es eine Begrenzung in den Zellen, d. h. ist die Anzahl der Zeichen begrenzt, welche bei der Methode Copy übertragen werden ?
Zum Beispiel mit
Sheets("FAQ").Select
Sheets("FAQ").Copy Before:=Sheets(2)
Wenn ja, gibt es eine Möglichkeit, ein Blatt zu kopieren, wo der Inhalt der Zellen vollständig übernommenwird ?
Danke für die Hilfe, Gruss Karl-Heinz