Office: Per Makro Formatierung mit kopieren

Hallo Leute,

Mach da gerade was. Und ich hab es eigentlich auch schon so weit hin bekommen das es funktioniert. Nur jetzt hab ich da noch ein kleines problem, und zwar kopiere ich mit einem Makro einen bestimmten bereich in eine andere Exceldatei. Makro:

Code:

Ist jetzt noch irgendwie möglich das ich dabei die Formatierung der Zellen mit Kopiere? Eiso das die Zellen in der neuen Datei genau so aussehen wie in der orginal datei?

Hilfe wäre Cool!

Danke

:)

 

Moin, djell,

also das, was Du mit Kopieren /Inhalte einfügen/Formate machst:

Code:

 

Genau so mein ich das. Nur wie baue ich das in mein vorhandenes Makro mit ein?
Irgendwie bin ich zu dumm dazu.

 

Moin, djell,

ungetestet, nur den Beispielcode angepasst:

Code:

 

So hab jetzt nochmal bisschen versucht aber es klappt nicht.
Meine Code schaut jetzt so aus:

Code:

Habs auch schon mit:
Paste:=xlPasteAll Versucht aber leider geht das auch nicht.

In der anderen Datei ist ist immer der gesammte Text aber ohne jeglicher Formatierung, eiso kein zellenhintergrung, schrieftgröße oder der gleichen.

Was könnte ich noch machen?

 

Moin, djell,

das Beispiel genau ansehen und dafür Sorge tragen, dass auch etwas in der Zwischenablage ist, was eingefügt werden kann (da fehlt das Kopieren der Angaben des Ursprungsbereiches)... *rolleyes.gif*

 

Ja ich weis was du meinst aber es wird alles kopiert und eingefügt bis auf die Foramtierung des textes, eiso Schrieftgröße, schrieftfarbe, hintergrundfarbe, Rahmen.

Hier nochmal das ganze Makro:

Code:

 

Mojin, djell,

die Bereiche zum Kopieren und Pasten sollten die gleiche Größe haben (als nicht einmal 10 Zeilen und einmal 29), und vor allem hat Selection in der letzten Anweisung absolut nichts verloren:

Code:

 

Ich glaub ich gebs auf, bin zu doof dazu.

ich lade mal die Datei hoch vielleicht bekommst du raus was da los ist.

 

Moin, djell,

eine schlechte Zeit für Fragen und Mappen... *wink.gif*

Die Variable lngLastRow ist nicht initialisiert und weist einen Wert von 0 aus - möglicherweises ist das einer der Gründe, warum ich immer für Option Explicit und eine zwingende Dimensierung aller Variablen plädiere... *rolleyes.gif*

Code:

Irgendwann in grauer Vorzeit hat man mir gesagt, dass einmal die Werte und einmal die Formate zu übertragen seien, was aber mit dem Befehl xlAllExceptBorders oder xlPasteAll umgangen werden sollte.