Ich wollte mein altes, ellenlanges Makro von allen "select" befreien und stosse dabei auf ein Problem.
Der Zugriff auf einen Bereich eines nicht aktiven Sheet ("Storico_CC") funktioniert leider nicht fuer den Befehl .Copy oder auch .ClearContents.
Makroauszug (Bug tritt in letzter Zeile auf):
Range(Range("G65536").End(xlUp).Offset(1, -6), Range("C3005").End(xlUp).Offset(0, 5)).Copy
Sheets("Storico_CC").Range("X1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False 'Wert einfuegen
Application.CutCopyMode = False
Range("A10:G3000").ClearContents
Sheets("Storico_CC").Range("X1:AD" & Range("Z3005").End(xlUp).Row).Copy 'hier kommt der bug
' alternativ habe ich ausprobiert, funzt auch nicht :
Sheets("Storico_CC").Range("X1", Range("Z3005").End(xlUp).Offset(0, 4)).Copy
'und so sah das Makro urspruenglich aus und so hat's auch gefunzt:
Sheets("Storico_CC").Select
Range("X1").Select
Range(Selection,Range("Z3005").End(xlUp).Offset(0, 4)).Copy
Warum kann ich diese umstaendliche Selektiererei nicht in die weiter o.g. Zeilen umwandeln, wo liegt dort der Fehrler?
Vielen Dank fuer euer Interesse und Muehen!
Gruss,
Jan