Hallo,
nachdem ich gelesen habe, dass man aus Geschwindigkeitsgründen SELECT-anweisungen vermeiden soll, wollte ich den Code verändern. Aber das funktioniert nicht.
Es geht um eine gefilterte Tabelle in der Spalten ausgeblendet sind. Der verbliebene Rest soll auf ein anderes Tabellenblatt ("Temp") kopiert werden.
Das funktioniert bisher anstandslos mit:
------------------------------------------------------
Sheets("Tabelle1").Select
ActiveSheet.Range("A1:Z" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy
Worksheets("Temp").Range("A1").PasteSpecial
-------------------------------------------------------
Ändere ich den Code auf:
-------------------------------------------------------
Worksheets("Tabelle1").Range("A1:Z" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy
Worksheets("Temp").Range("A1").PasteSpecial
-------------------------------------------------------
...wird nur die Überschrift aus Tabelle1 kopiert, die nachfolgenden Datenzeilen unter der Überschrift nicht?
Was mache ich falsch? Bzw. kann mir jemand erklären warum das so ist?