Das Archiv des Excel-Forums

Formatierung beim Kopieren beibehalten

Bild

Betrifft: Formatierung beim Kopieren beibehalten
von: Alex

Geschrieben am: 30.09.2003 12:45:33

ausgehend von folgendem code:



Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues           ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub



habe ich eine variante programmiert. es klappt alles einwandfrei, ABER:

ich möchte, dass in der zieldatei (im beispiel) datei2.xls" die spaltenbreiten von datei1.xls übernommen werden.

kann mir jemand helfen?
Bild


Betrifft: AW: Formatierung beim Kopieren beibehalten
von: Bernhard
Geschrieben am: 30.09.2003 13:26:24

Hallo Alex

mit
workbooks(name).sheets(index).cells(zeile,spalte).Selection.ColumnWidth = wert
kannst Du die Spaltenbreite setzen

Mit einer Schleife die Anzahl der Spalten durchlaufen und den Wert aus Excel1 auslesen

wert = Selection.ColumnWidth und dann den Wert in Excel2 setzen
workbooks(name).sheets(index).cells(zeile,spalte).Selection.ColumnWidth = wert

Gruß
Bernhard


 Bild

Excel-Beispiele zum Thema " Formatierung beim Kopieren beibehalten"

Automatische Datumformatierung unterdrücken download Zahlenformatierung mit Punkt nach der 1. Ziffer download
Unterschiedliche Schriftformatierung in Kopf-/Fußzeile download Jahreskalender und bedingte Formatierung download
Bedingte Formatierung auslesen download Über die bedingte Formatierung den Minimalwert markieren download
Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern download Bedingte Formatierung in Abhängigkeit eines Zellkommentars download
Markierung von Formeln über bedingte Formatierung download Zelleinträgen über die Formatierung Spaltennamen hinzufügen download
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen download Hyperlink-Formatierung bei Eingabe von Email-Adressen verhindern download
Tabellenvergleich über die bedingte Formatierung download Zahlen-Formatierungs-Dialog aus UserForm aufrufen download
Wert eintragen, wenn Bedingte-Formatierung-Bedingung zutrifft download Werte in Abhängigkeit zur Währungsformatierung summieren download
Bei TextBox-Eingaben Mustervergleich und Formatierung download Eine Reihe von Beispielen zum Feature "Bedingte Formatierung" download
Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download