|
Hallo,
Habe leider von Kollegen eine Mako übernommen, und habe jetzt gesehen das die Datei fast 43MB hat was aber nur daran liegt,
das das Makro fehlerhaft konzipiert ist. Es kopiert leider alle Spalten bis EXCEL Ende es sollten aber natürlich nur jene Daten kopiert werden die vorhanden sind, eine Referenzspalte müsste ich noch definieren (Annahme Spalte 1)
Wie müsste man den Code anpassen das nur Zeilen mit Dateninhalt kopiert werden.
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
Danke Roland
|