Formatierung beim kopieren mit übernehmen
10.05.2006 15:43:15
Sebastian
Also die bedingten Formatierungen und die Spaltenbreite.
Was muss ich ändern?
Hier der Code:
Worksheets(Name).UsedRange.Copy
Set NewSheet = Worksheets.Add
NewSheet.Name = Modul1.Eingefügte_Nation
NewSheet.Range("A1").PasteSpecial Paste:=xlValues
Anzeige