Office: Tabellenblatt kopiert

Hallo liebes Forum, hallo liebe Experten....

folgendes Problem:

Ich habe ein UserForm, welches, wenn es ausgeführt wird, ein neues Excel-Workbook erzeugt und ein Tabellenblatt aus dem Workbook mit der Userform (Workbook1) kopiert und in das neu erzeugte Workbook (Workbook2) einfügt.

Funktioniert soweit, die Farben (Zellfarben, Schriftfarbe usw.) ändern sich jedoch nach dem Einfügen.


Ursache:
Workbook1 arbeitet mit einer von mir definierten Farbpalette, das neu erstellte Workbook2 greift auf eine andere Excel-Standard Farbpalette zurück.
(Nach manuellem ändern der Farbpalette stimmt die Farbe wieder...)

Gibt es eine Möglichkeit dem neuen Workbook2, anhand VBA, die definierte Farbpalette zu übergeben?

Ich schätze jegliche Hilfe und freue mich über Beteiligung *Smilie

EDIT: Ich habe im Vorfeld schon recherchiert und diesen Beitrag gefunden http://www.ms-office-forum.net/forum...d.php?t=256605
Auf mein Problem gibt es jedoch keine konkrete Antwort

:)

 

benutze eine Mustervorlag die die Farbeinstellung aus Workbook1 enthält.

 

Hallo,

du kannst die Farben eigentlich recht einfach so übertragen:
Code:

Kannst du das in deinen Code integrieren und funktioniert es?
Falls du Probleme damit hast den Code anzuwenden, hilft es, wenn du eine kleine Beispieldatei als Demo erstellst.

VG
Santa

 

Vielen Dank vorab, für die schnelle Antwort.

Im Anhang habe ich eine Dummy-Datei erstellt.

Wie kann ich denn Deinen Code integrieren MC Santa?
Leider bin ich noch recht unerfahren in VBA. *upps

 

Habe es nun mit

Code:

versucht (bestimmt wegen .Add?!)

und

ActiveWorkbook.Colors = Workbooks(strDMSPfad).Colors
, klappt aber beides nicht nicht.
Ich bin mir aber auch nicht sicher ob ich an der richtigen Stelle eingesetzt habe.

 

Hallo,

probiere ungetestet mal diese Variante:
Code:

Funktioniert das?

VG
Santa

 

Leider nein, kann es nicht sein dass es daran liegt, dass .Add nicht zum .Color Befehl passt?

varNewbook = Workbooks.Add

Was genau macht denn .Colors? Ist das die Farbpalette (ich meine die unter Designfarben)

 

Hallo,

zu dem Zeitpunkt, wo .Colors aufgerufen wird, hat das schon nichts mehr mit dem .Add Befehl zu tun. In der Variable varNewbook speicherst du ein Workbook und damit kannst du dann alles machen, was du auch sonst mit einem Workbook machen könntest.

Mit dem Befehl .Colors kannst du auf die Farbpalette zugreifen. Ich habe das in meinem Fall unter Excel 2003 benutzt, vermutlich funktioniert es dann ab Excel 2007 anders.

Habe aktuell nicht die Zeit zum Suchen und Testen, aber mit diesem Google-Ansatz müsstest du etwas brauchbares finden:
https://www.google.com/search?q=exce...tragen&spell=1

Ich hoffe das hilft dir etwas weiter.

VG
Santa

 

Danke, ich versuche das mal

EDIT:
Offensichtlich verwendet Excel 2010 XML Formate für die Farbpaletten, welche in den Vorlagen abgespeichert werden.
Laut Internet ist es dadurch einfacher geworden. Mich jedoch macht es ratlos *Smilie

Tatsächlich habe ich die XML Datei gefunden, leider kann ich den Inhalt hier nicht posten (warum auch immer)

 

Weiss jemand wie ich die XML Datei (Designfarben) per VBA an ein anderes Worksheet übergeben kann?

Oder kann das auch anders geschehe?

 

Guten Morgen,

@Hajo meinst Du mit einer Mustervorlage die Designfarben (benutzerdefinierte Farbpalette), eine Mustervorlage als Excel Workbook ist jedoch nicht vorgesehen, da die Vorlagen selbst nur als Tabellenblatt vorliegen (das ändert sich aber vielleicht bald und die Vorlagen liegen dann in einem Verzeichnis vor - das aber nur so vorweg gegriffen).

Falls ja, die Farben sind angelegt und gespeichert.
(Excel 2013 speichert die Palette als XML Datei in den Forlagen)

Kannst Du mir sagen, ob ich diese an das neue Workbook übergeben und anwenden kann?

 

Manchmal ist die Lösung so einfach ... hirnlos wirklich *tongue.gif*

Lösung:

Makrorekorder lässt grüßen...

Nach aufzeichnen erhalte ich folgenden Code:

Code:

Das ist der Vorlagenordner in Excel.

Funktioniert zumindest in Word2013.