Hallo zusammen,
hab ein Problem mit einem alten Makro. Bis vor wenigen Wochen konnte ich ohne Probleme das Sheet kopieren, und in eine neue Mappe einfügen. Nun bei Selection.Insert Shift:=xlDown habe ich eine Laufzeit von über 5 Minuten.(Spaltenbreite ist unterschiedlich, und soll auch mit kopiert werden).
Könnte auch Cells.Select durch Range("A1:F110").Select ersetzen, möchte ich nur ungern machen.
Cells.Select
' ####Range("A1:F110").Select
Selection.Copy
Workbooks.Add
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveWindow.Zoom = 75
hat hier jemand eine Hilfe für mich. Eventuell wurden Einstellungen/ Optionen in Excel- Office verändert (Firmenrechner). Das Makro würde ich nur ungern ändern.
Bin für jede Hilfe dankbar.