Office: Spaltenformate mit VBA kopieren

Hallo NG,

ich würde gerne per VBA die Spaltenbreite des mit der Range-Methode kopierten Bereiches in den Zielbereich übernehmen. Habe das mit der PasteSpecial-Methode und xlPasteType-Konstante xlPasteFormats vergeblich versucht.
Im Menü Bearbeiten-Inhalte einfügen lässt sich Spaltenbreite auswählen - gibt's für PasteSpecial ein undokumentierte Konstante dafür? Oder wie geht's sonst?
Vielen Dank für Hilfe!

Christian

:)

 

Hallo CrissCross,

der folgende Einzeiler stellt die Breite der Spalte F auf die Breite der Spalte der gerade selektierten Zelle ein.

Hilft Dir das weiter?

Johannes

Code:

Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag der Code für dieses Forum angepasst.

 

Hallo Johannes,

Danke für den Tip. Ich habe vergessen, dazu zu sagen, dass der zu kopierende Bereich über einen Bereichsnamen angesprochen wird und von daher Spalten und Zellenzahl varieren können - sprich ich weiß eigentlich gar nicht welche Spalten ich explizit auswählen muss. Der Bereichsname ist fest, aber der zugehörige Bereich wird von dem jeweiligen Benutzer festgelegt.
Danke nochmal

Gruß
Christian

 

Hi,

dann rück doch wenigstens jetzt mit allen Informationen raus *confused.gif*. Wie heißt der benannte Bereich und wohin sollen die Spaltenbreiten übertragen werden. Soll wirklich die Breite aller Spalten kopiert werden?

Je mehr Infos, um so schneller und zielgerichteter kann die Hilfe sein.

Bis gleich

J

 

Hallo,

im Grund spielt es keine Rolle, wie der Bereich heisst, aber ich nenne ihn mal "Vorlage". Mit der Range-Methode kann ich dann auf den Bereich "Vorlage" zugreifen, ohne genau wissen zu müssen, welche Zellen das jetzt im einzelnen sind. Deshalb vergibt man ja auch Breichsnamen.

Christian

 

Hallo,

falls es irgendjemand interessiert, hier meine Lösung zu meinem Problem auf Basis des Vorschlags von Johannes:

Code:

Den betreffenden Zellbereich, habe ich hier "Testbereich" genannt. Er lässt sich z.B. durch Selektieren des gewünschten Bereichs und Eingabe des Namens in das "Namenfeld" ganz links in der Bearbeitungsleiste festlegen.

Christian

Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag der Code für dieses Forum angepasst.