bedingte Formatierung kopieren
27.11.2012 10:12:16
Snewi
ich habe in meinem Excel Sheet bedingte Formatierungen!
Diese Sheet kopiere ich mir ja und lege eine Kopie an:
Sheets("Bericht").Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial xlPasteValues
.Range("C3").Select
Application.CutCopyMode = False
With .Parent
With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Pfad = Ordner_vorhanden(Verzeichnis, Sheets("Bericht").Range("C3"))
.SaveAs Filename:=Pfad & SpeicherName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close
End With
End With
Was kann ich also tun damit die Formate 1:1 dem original entsprechen?
Gruß
