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
Worksheets(Name).UsedRange.EntireColumn.Copy
Set NewSheet = Worksheets.Add
NewSheet.Name = Modul1.Eingefügte_Nation
NewSheet.Range("A1").PasteSpecial Paste:=xlPasteFormats
NewSheet.Range("A1").PasteSpecial Paste:=xlValues