Sub _atkuell_erstellenNEU()
Dim old As Object, Ziel As Object
Dim Spalten, Spalte, Zielspalte As Long
Spalten = Array("I:I", "AG:AG", "O:O", "B:B", "H:H", "S:S", "AH:AH", "Z:Z")
Set old = ThisWorkbook.Sheets("IX")
Set Ziel = ThisWorkbook.Sheets("Akutell")
Application.ScreenUpdating = False
Zielspalte = 1
With Ziel
For Each Spalte In Spalten
old.Range(Spalte).Copy
.Cells(1, Zielspalte).PasteSpecial xlPasteColumnWidths
.Cells(1, Zielspalte).PasteSpecial xlPasteFormats
.Cells(1, Zielspalte).PasteSpecial Paste:=xlPasteAllMergingConditionalFormats
.Cells(1, Zielspalte).PasteSpecial xlPasteValues
Zielspalte = Zielspalte + Range(Spalte).Columns.Count
Next Spalte
Application.CutCopyMode = False