Formatierung beim Kopieren beibehalten
30.09.2003 12:45:33
Alex
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?
Anzeige