Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Gefilterte Zeilen Kopieren

Gefilterte Zeilen Kopieren
01.02.2015 23:02:53
Vulferin
Hallo Zusammen
Wie kann ich nur die vom Autofilter sichtbaren Zeilen Kopieren und in neue Tabelle einfügen ?
Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=wsZiel. _
Range("A1")
Da sagt er mir nicht genügen Arbeitsspeicher
Gibt es noch eine andere möglichkeit ?

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gefilterte Zeilen Kopieren
01.02.2015 23:26:49
Jürgen
Hallo Vulferin,
Du must den Autofilter wieder deaktivieren
Cells.SpecialCells(xlCellTypeVisible).Copy Destination:=wsZiel. _
Range("A1")
ActiveSheet.UsedRange.AutoFilter
Schreib mal diese Zeile darunter
Gruß J.

AW: Gefilterte Zeilen Kopieren
02.02.2015 06:59:03
Vulferin
meinst du das so ?
  • 
    Private Sub workbook_open()
    Call showall
    Tabelle1.Activate
    Application.OnTime Now(), "Start"
    If ISOWeek(Date) 

  • da sagt er mir immer noch zu wenig speicher.
    Kann mann nicht diese kopieren mit einer schleife ?
    das er zeile für zeile koppiert ?

    Anzeige
    Cells.Copy ...
    01.02.2015 23:27:58
    {Boris}
    Hi,
    dadurch werden nur die SICHTBAREN Zellen kopiert.
    VG, Boris

    AW: Cells.Copy ...
    02.02.2015 07:00:24
    Vulferin
    Meint ihr das so ?
  • 
    Private Sub workbook_open()
    Call showall
    Tabelle1.Activate
    Application.OnTime Now(), "Start"
    If ISOWeek(Date) 

  • Damit hab ich immer noch das Speicher Problem
    Kann man um Speicher zu sparen das auch als schleife bauen ?

    AW: Cells.Copy ...
    02.02.2015 07:35:32
    Gerd
    Hallo,
    nutze zunächst ... .Autofilter.Range oder ... .Range("A1").Currentregion oder ... .UsedRange
    um die Zellenanzahl beim Kopieren zu reduzieren.

    AW: Cells.Copy ...
    02.02.2015 16:11:42
    Vulferin
    Hi,
    danke euch erstmal für eure Mühe.
    Irgendwie klappt das immer noch nicht.
    sagt mir nicht genug speicher.

    Anzeige
    AW: Cells.Copy ...
    04.02.2015 10:34:26
    Vulferin
    Ich habs hinbekommen
    hier mein Code
  • 
    Private Sub workbook_open()
    Call showall
    Tabelle1.Activate
    Application.OnTime Now(), "Start"
    If ISOWeek(Date) 

  • Danke euch

    309 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige